Verification textbox [Résolu]

thomasaurelien 71 Messages postés jeudi 7 juillet 2011Date d'inscription 27 novembre 2017 Dernière intervention - 22 déc. 2011 à 15:11 - Dernière réponse : cs_lim 329 Messages postés jeudi 20 novembre 2003Date d'inscription 10 mai 2014 Dernière intervention
- 22 déc. 2011 à 18:07
Bonjour voila j'ai un form avec plusieurs texbox et je voudrais controlé si ceux-ci sont rempli avant de continuer j'ai donc utilisé un booléen mais cela n'est pas très optimal car si le dernier est rempli et pas les précédents alors les donnés sont envoyés kan même.

Dim erreur As Boolean = True
        EP.Clear()
        If TBlogin.Text = "" Then
            EP.SetError(TBlogin, "Veuillez saisir un LOGIN")
            erreur = False
        ElseIf TBlogin.TextLength < 8 Then
            EP.SetError(TBlogin, "Login  doit contenir 8 caractère")
            erreur = False
        End If

        If TBmdp.Text = "" Then
            EP.SetError(TBmdp, "Veuillez saisir un mot de passe")
            erreur = False
        ElseIf TBmdp.TextLength < 8 Then
            EP.SetError(TBmdp, "Mot de passe doit contenir 8 caractère")
            erreur = False
        End If

        If CBquest.Text = "" Then
            EP.SetError(CBquest, "Sélectionner une question")
            erreur = False
        End If

        If TBrep.Text = "" Then
            EP.SetError(TBrep, "Saisissez votre réponse")
            erreur = False
        ElseIf TBrep.TextLength < 8 Then
            EP.SetError(TBrep, "Reponse  doit contenir 8 caractère")
            erreur = False
        End If

        If erreur Then
            If base.test() Then
                choix()
            Else
                base.create_base()
                choix()
            End If
        End If
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
cs_lim 329 Messages postés jeudi 20 novembre 2003Date d'inscription 10 mai 2014 Dernière intervention - 22 déc. 2011 à 18:07
3
Merci
oui c'est une autre solution, mais ce que tu voulais faire : "afficher toutes les erreurs les unes après les autres", n'était pas spécifié dans ta demande, j'ai donc fait fait ce qui me paraissait le plus logique.

@+LIM

Merci cs_lim 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 68 internautes ce mois-ci

Commenter la réponse de cs_lim
thomasaurelien 71 Messages postés jeudi 7 juillet 2011Date d'inscription 27 novembre 2017 Dernière intervention - 22 déc. 2011 à 15:15
0
Merci
excusez je me suis trompé de code

Dim valider As Boolean = False
        EP.Clear()
        If TBlogin.Text = "" Then
            EP.SetError(TBlogin, "Veuillez saisir votre login !")
        ElseIf TBlogin.TextLength < 8 Then
            EP.SetError(TBlogin, "Votre login doit contenir 8 caractère minimun !")
        Else
            valider = True
        End If

        If TBmdp.Text = "" Then
            EP.SetError(TBmdp, "Veuillez saisir votre password !")
            valider = False
        ElseIf TBlogin.TextLength < 8 Then
            EP.SetError(TBmdp, "Votre password doit contenir 8 caractère !")
        Else
            valider = True
        End If

        If CBquest.Text = "" Then
            EP.SetError(CBquest, "Veuillez sélectionner une question")
        Else
            valider = True
        End If

        If TBrep.Text = "" Then
            EP.SetError(TBrep, "Veuillez saisir votre reponse !")
        ElseIf TBlogin.TextLength < 8 Then
            EP.SetError(TBrep, "Votre reponse doit contenir 8 caractère !")
        Else
            valider = True
        End If

        If valider Then
            Try
                AjouterUser(TBlogin.Text, TBmdp.Text, CBquest.Text, TBrep.Text)
                MessageBox.Show("Inscripion validé", ".:: CONFIRMATION", MessageBoxButtons.OK, MessageBoxIcon.Information)
                If MessageBox.Show("Une autre inscription ? ", ".:: DEMANDE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                    vider()
                Else
                    Me.Visible = False
                    Connection.Show()
                    Me.Close()
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message, ".:: ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

        End If
Commenter la réponse de thomasaurelien
cs_lim 329 Messages postés jeudi 20 novembre 2003Date d'inscription 10 mai 2014 Dernière intervention - 22 déc. 2011 à 15:51
0
Merci
Salut,

tu imbriques tes conditions a chaque else, arrivé au dernier tu ouvriras ta fenêtre ou alors tu seras sorti car une condition ne sera pas rempli

 EP.Clear()
        If TBlogin.Text = "" Then
            EP.SetError(TBlogin, "Veuillez saisir votre login !")
        ElseIf TBlogin.TextLength < 8 Then
            EP.SetError(TBlogin, "Votre login doit contenir 8 caractère minimun !")
        Else
             If TBmdp.Text = "" Then
                EP.SetError(TBmdp, "Veuillez saisir votre password !")
             ElseIf TBlogin.TextLength < 8 Then
                EP.SetError(TBmdp, "Votre password doit contenir 8 caractère !")
             Else
                 If CBquest.Text = "" Then
                     EP.SetError(CBquest, "Veuillez sélectionner une question")
                  Else
                    If TBrep.Text = "" Then
                        EP.SetError(TBrep, "Veuillez saisir votre reponse !")
                    ElseIf TBlogin.TextLength < 8 Then
                       EP.SetError(TBrep, "Votre reponse doit contenir 8 caractère !")
                    Else
            Try
                AjouterUser(TBlogin.Text, TBmdp.Text, CBquest.Text, TBrep.Text)
                MessageBox.Show("Inscripion validé", ".:: CONFIRMATION", MessageBoxButtons.OK, MessageBoxIcon.Information)
                If MessageBox.Show("Une autre inscription ? ", ".:: DEMANDE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                    vider()
                Else
                    Me.Visible = False
                    Connection.Show()
                    Me.Close()
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message, ".:: ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
        End If
        End If
        End If
        




@+LIM
Commenter la réponse de cs_lim
thomasaurelien 71 Messages postés jeudi 7 juillet 2011Date d'inscription 27 novembre 2017 Dernière intervention - 22 déc. 2011 à 17:31
0
Merci
Oui mais avec solution les erreurs sont affiché l'une après les autres, j'voudrai que celli-ci soit toute affiché. Je vais mettre un booléen pour chaque controle et ensuite testé si les 4 sont vraix.
Commenter la réponse de thomasaurelien

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.