Comment créer une fonction en VB. NET

Une fonction est plus ou moins la même chose en tant que sous - un segment de code que vous créez vous-même, et qui peut être utilisé chaque fois que vous le voulez. La différence est qu'une fonction retourne une valeur, tandis qu'une Sub ne fonctionne pas. Lorsque vous appelle un sous que vous avez fait ceci:

AddNumbers d'appel (première, seconde)

Visual Basic s'éteint et exécuter ce code pour vous, et puis descendre à la ligne suivante. Les AddNumbers SUB n'est pas une valeur, il n'est pas égal à rien. Ce n'est pas comme une variable normale lorsque vous affectez quelque chose. C'est juste le nom de votre sous-routine.
Une fonction est différente. Il est une valeur, sera égale à quelque chose, et vous ne devez attribuer une valeur. Vous créez une fonction de la même façon que vous avez fait un sous, mais cette fois, votre code sera comme ceci:

ErrorCheck Private Function () As Boolean

End Function

Tout d'abord, nous avons changé le mot «Sub» à «Fonction», le deuxième, nous avons ajouté «En tant que" quelque chose, dans ce cas, "As Boolean". Le nom que nous appelons notre fonction est ErrorCheck et ErrorCheck est maintenant comme une variable. Et tout comme une variable, nous utilisons l'un des types. Nous pouvons utiliser "As Integer", "As Long", "As Double", "As String", ou l'un des types de variables.
Nous allons écrire du code, et d'essayer un exemple.
Ajouter un nouveau bouton et une zone de texte à votre formulaire. Changer le nom de la zone de texte pour txtFunction. Double-cliquez sur le bouton et ajoutez le code suivant à elle (ajouter après la fin de Sous le bouton, mais avant la classe de fin):

ErrorCheck Private Function () As Boolean

Dim TextBoxData As String

TextBoxData = Trim (txtFunction.Text)

Si TextBoxData = "" Then

MsgBox ("zone de texte vierge détectée")

ErrorCheck = True

End If

End Function

C'est presque le même code de notre Sous appelé ErrorCheck, dans une section précédente . La différence est la seule ligne ajoutée - ErrorCheck = True. Rappelez-vous que ErrorCheck est maintenant comme une variable. Dans ce cas, il était une variable booléenne. Donc, si il n'y a rien dans la zone de texte, nous avons mis en ErrorCheck à True.
Une partie Else peut également être ajouté à l'instruction if pour définir ErrorCheck sur False, sinon vous pouvez obtenir un soulignement vert dans l'éditeur de code pour End Function:

Else

ErrorCheck = False

End If

Encore une fois, ce code ne fait pas beaucoup de bien par lui-même. Nous devons trouver une façon de l'utiliser. Cette fois-ci, parce que nous avons mis en place une fonction, nous devons affecter la valeur de la fonction à une variable. Comme ceci:

IsError As Boolean

IsError = ErrorCheck ()

Ici, nous disons "Exécuter la fonction appelée ErrorCheck. Lorsque vous avez terminé, affectez la valeur de ErrorCheck à l'appelé IsError variable".
Une fois que le code est exécuté, nous pouvons ensuite utiliser le IsError variable et tester sa valeur. Si c'est vrai, alors nous savons que l'utilisateur n'a rien inscrire dans la zone de texte, si c'est faux, nous savons qu'ils ont fait. L'avantage d'utiliser une fonction pour vérifier nos erreurs, c'est que nous pouvons arrêter le programme si IsError = True. Comme ceci:

Si IsError = True puis

Exit Sub

End If

Donc, double-cliquez sur votre bouton et ajoutez la ligne suivante:

IsError As Boolean

IsError = ErrorCheck ()

Si IsError = True puis

Exit Sub

Else

MsgBox ("IsError = false")

End If

Lancez votre programme. Cliquez sur le bouton lorsque le champ est vide, et voir ce qui se passe. Ensuite, entrez du texte dans la zone de texte et cliquez à nouveau sur le bouton.
Pour résumer, alors. Une fonction retourne une valeur. Vous mettez cette valeur dans le nom de votre fonction. Vous affectez ensuite la valeur de la fonction à une variable. Vous pouvez ensuite tester la variable pour voir ce qu'il ya dedans.

Posted in: Visual Basic .NET