Come Chiamare una Funzione in Visual Basic

Info sull'Autore

Sei bloccato dal concetto di "Funzione" in Visual Basic (VB)? Se è così, leggi questa guida per imparare a conoscere i costrutti delle funzioni secondo i paradigmi di VB.

Passaggi

1
Cos'è una Funzione?
- Usa una Function quando devi richiamare un valore al codice di chiamata.
- La funzione stessa ha un tipo, e richiamerà un valore alla subroutine di chiamata sulla base del codice che contiene.
2
Come dichiarare una Funzione?
- Puoi definire una procedura Function solo a livello di modulo. Questo significa che il contesto di dichiarazione di una funzione deve essere una classe, una struttura, un modulo o un'interfaccia, e non può essere un file di origine, un namespace, una procedura o un blocco.
- Una funzione viene dichiarata nello stesso modo di una subroutine, con l'unica eccezione dell'uso della parola "Function" invece di "Sub".
- La procedura Function è come impostazione predefinita ad accesso pubblico. Puoi regolarne il livello di accesso con i modificatori di accesso.
3
Come chiamare una Funzione?
- Chiami una procedura Function usando il nome della procedura, seguito dall'argomento tra parentesi, in una espressione.
- Puoi omettere le parentesi se non stai fornendo alcun argomento. Il tuo codice però sarà più leggibile se includerai sempre le parentesi.
- Puoi chiamare una funzione anche usando l'affermazione Call, nel qual caso il valore di ritorno è ignorato.
- Per ottenere un valore, assegna un valore del tipo appropriato al nome della funzione, come se fosse una variabile.
Pubblicità

Sintassi

Dichiarazione

[ <attributelist> ] [ modificatorediaccesso ] [ modificatorediprocedura ] [ condivisione ]
Nome funzione [ (Of tipolistaparametri) ] [ (listaparametri) ] [ As tipodiritorno ]
    [ affermazioni ]
    [ Funzione di Uscita ]
    [ affermazioni ]
End Function

Chiamata

'Senza Call
Nome_Funzione()
    
'Con Call
Call Nome_Funzione()

Esempio

Di seguito troverai un esempio di una funzione che somma due numeri

Private Function Addizione(ByVal x As Integer, ByVal y As Integer) As Integer
    Dim Res as integer
    Res = x + y
    Addizione = Res
End Function
 
Private Sub Form_Carica()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    a = 32
    b = 64
    c = Addizione(a, b)
    MsgBox ("La somma è: " & c)
End Sub