Bloccato con i concetti di "Funzione" in VB? Se Sì, leggi questa guida per imparare i cosiddetti costrutti di "Funzione" nel paradigma di VB.
Passi
Passaggio 1. Che cos'è la funzione?
- Utilizzare una routine Function quando è necessario restituire un valore al codice chiamante.
- Una funzione stessa ha un tipo e la funzione restituirà un valore alla subroutine chiamante in base al codice che contiene.
Passaggio 2. Come dichiarare la funzione?
- È possibile definire una procedura Function solo a livello di modulo. Ciò significa che il contesto della dichiarazione per una funzione deve essere una classe, una struttura, un modulo o un'interfaccia e non può essere un file di origine, uno spazio dei nomi, una procedura o un blocco.
- Una funzione viene dichiarata esattamente allo stesso modo di una subroutine, tranne per l'utilizzo della parola chiave "Function" invece di "Sub".
- Per impostazione predefinita, le procedure delle funzioni sono di accesso pubblico. Puoi regolare i loro livelli di accesso con i modificatori di accesso.
Passaggio 3. Come chiamare la funzione?
- Si chiama una routine Function utilizzando il nome della procedura, seguito dall'elenco di argomenti tra parentesi, in un'espressione.
- Puoi omettere le parentesi solo se non stai fornendo alcun argomento. Tuttavia, il tuo codice è più leggibile se includi sempre le parentesi.
- È anche possibile chiamare una funzione utilizzando l'istruzione Call, nel qual caso il valore restituito viene ignorato.
- Per restituire un valore, assegna un valore del tipo appropriato al nome della funzione, come se fosse una variabile.
Sintassi
Dichiarazione
[accessmodifier] [proceduremodifiers] [Shared] Function name [(Of typeparamlist)] [(parameterlist)] [As returntype] [statement] [Exit Function] [statement] End Function
chiamando
'Senza chiamata Nome_Funzione() 'Con Chiamata Chiamata Nome_Funzione()
Esempio
Di seguito è mostrato un esempio di funzione che somma due numeri
Private Function Add(ByVal x As Integer, ByVal y As Integer) As Integer Dim Res as integer Res = x + y Add = Res End Function Private Sub Form_Load() Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Add(a, b) MsgBox ("La somma è: " & c) End Sub