Test de valeur vide pour des textbox sur un formulaire

Commenter

Contenu du snippet

Voici une petite fonction simple qui test si les TextBox d'un formulaire contient une valeur ou pas.

cette petite fonction me sert pour la validation avant l'insertion des champs d'une base de données intedisant les nulls.

Source / Exemple : 


'argument ObjControl est un tableau pour les différents textbox du formulaire
    Function TestVide(ByVal objControl() As TextBox) As Boolean
        'initialisation des variables
        'i pour pour parcourir les valeurs du tableau
        Dim i As Integer
        'msgErreur pour le message d'erreur des textbox vide
        Dim msgErreur As String = "Vérifier :" & ControlChars.Cr
        'assigne vrai la fonction
        TestVide = True
        'boucle de test du tableau de textbox
        For i = 0 To objControl.Length - 1
            'verification de la longueur de chaine ou s'il n'y a pas d'espace pour le premier caractère pour chaque l'element du tableau
            If objControl(i).TextLength = 0 Or objControl(i).Text = Chr(32) Then
                'si textbox="" alors nom du textbox qui est en erreur
                msgErreur &= ">> " & objControl(i).Name & " est vide" & ControlChars.Cr
                'assigne faux a la fonction car il y a erreur
                TestVide = False
            End If
        Next
        ' test de l'assignation de la fonction
        ' si faux alors affiche tout les champs en erreur dans le message
        If Not TestVide Then MessageBox.Show(msgErreur, "Rapport d'erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'retourne l'appel de la fonction en vrai ou faux
        Return TestVide

    End Function

Conclusion :


la fonction peut etre completer avec un regex en fonction de la valeur des textbox pour une base de donnée

on peut appeler la fonction de cette facon avec un button_click

Dim objControl() As TextBox = {txtSociete, txtAdresse, txtCodePostal, txtVille, txtTelephone}
If TestVide(objControl) Then insertion dans la base de donnée

ps
j'ai 9 ans et sa fait 15 jours que je fais du vb.net avec visual studio et sans l'aide mon père
j'ai beaucoup lu sur le forum aussi
j'attend les remarques et les critiques de tout le monde

a bientot
alessio

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.