Coincé avec les concepts de "Fonction" en VB ? Si oui, lisez ce guide pour apprendre les soi-disant constructions de « Fonction » dans le paradigme de VB.
Pas
Étape 1. Qu'est-ce que la fonction ?
- Utilisez une procédure Function lorsque vous devez renvoyer une valeur au code appelant.
- Une fonction elle-même a un type et la fonction renverra une valeur au sous-programme appelant en fonction du code qu'elle contient.
Étape 2. Comment déclarer Function ?
- Vous ne pouvez définir une procédure Fonction qu'au niveau du module. Cela signifie que le contexte de déclaration d'une fonction doit être une classe, une structure, un module ou une interface et ne peut pas être un fichier source, un espace de noms, une procédure ou un bloc.
- Une fonction est déclarée exactement de la même manière qu'un sous-programme, sauf en utilisant le mot-clé "Function" au lieu de "Sub".
- Les procédures de fonction sont par défaut en accès public. Vous pouvez ajuster leurs niveaux d'accès avec les modificateurs d'accès.
Étape 3. Comment appeler Function ?
- Vous appelez une procédure Function en utilisant le nom de la procédure, suivi de la liste d'arguments entre parenthèses, dans une expression.
- Vous ne pouvez omettre les parenthèses que si vous ne fournissez aucun argument. Cependant, votre code est plus lisible si vous incluez toujours les parenthèses.
- Une fonction peut également être appelée à l'aide de l'instruction Call, auquel cas la valeur de retour est ignorée.
- Pour renvoyer une valeur, attribuez une valeur du type approprié au nom de la fonction, comme s'il s'agissait d'une variable.
Syntaxe
Déclaration
[accessmodifier] [proceduremodifiers] [Shared] Nom de la fonction [(Of typeparamlist)] [(parameterlist)] [As returntype] [instructions] [Exit Function] [instructions] End Function
Appel
'Sans appel Function_Name() 'Avec appel Call Function_Name()
Exemple
Un exemple de fonction qui ajoute deux nombres est montré ci-dessous
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 ("Sum is: " & c) End Sub