[Débutant] Check textbox vide

Check textbox vide

Bonjour,

En parcourant vos forums, je suis tombé sur un code qui m'a bien plus dans sa syntaxe et plutôt utile pour un utilisateur. Cependant, il est fait pour VB6 et antérieur, donc je n'arrive pas à l'adapter en VB.NET :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim ctl As Control Dim name As Object Private Sub Command1_Click() 'pour le test CheckIftxtEmpty frm, ctl End Sub Sub CheckIftxtEmpty(frm As Form, ctl As Control) Dim Rep As String For Each ctl In Controls If TypeOf ctl Is TextBox Then If Trim(ctl.Text) = "" Then Rep = MsgBox("Le champ: " & ctl.name & "est vide, Veuillez remplir ?", vbYesNo) 'Affiche le nom de la textbox vide If Rep = vbYes Then ctl.SetFocus 'met le focus sur le champ vide Exit For End If End If End If Next ctl End Sub
A la base, ce n'est pas pour une "windows form" mais pour une page en ASPX donc je ne connais pas le mot clé à mettre. Ensuite, il m'indique l'erreur suivante en soulignant "ctl.Text", "SetFocus" & "ctl.name" :

Citation:

'Text', 'name', 'SetFocus' n'est pas un membre de 'System.Web.UI.Control'.

Si vous pouviez m'aider, je vous en remercie d'avance :ccool:

Bonjour,

Tu trouveras la réponse sur ce sujet :
http://www.developpez.net/forums/d61...-textbox-form/

En vb.net ça donne :

Code:

1
2
3
4
5
6
7
8
9
For each c as Control in me.controls
    if c is textbox then
        if c.Text = "" then
            msgbox("Champ vide")
            c.setfocus
            exit sub
        end if 
     end if
Next

Merci de ta réponse, cependant, j'ai le message suivant pour "textbox" dans if c is textbox then

Citation:

'TextBox' est un type et ne peut pas être utilisé en tant qu'expression.

J'ai remodelé le code, il n'y a pas d'erreur dans VS, mais quand je clique sur mon bouton, rien ne se produit :

Code:

1
2
3
4
5
6
7
8
9
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                If CType(c, TextBox).Text = "" Then
                    MsgBox("Champ vide")
                    'c.setfocus()
                    Exit Sub
                End If
            End If
        Next

Code:

1
2
3
4
5
6
7
8
9
10
11
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                If c.Text = "" Then
                    MsgBox("Champ vide")
                    c.Focus()
                    Exit Sub
                End If
            End If
        Next
    End Sub

J'ai testé ce code et il marche (j'ai laissé la valeur c.text comme telle), il affiche bien la boîte de dialogue.

Vérifie que tes champs ne contiennent pas d'espaces en trop (avec un trim éventuellement)

Etrange car moi avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                If c.Text = "" Then
                    MsgBox("Champ vide")
                    c.Focus()
                    Exit Sub
                End If
            End If
        Next
    End Sub

J'obtiens une erreur sur "c.Text" :

Citation:

'Text' n'est pas un membre de 'System.Web.UI.Control'.

Citation:

Envoyé par Nikko42

Etrange car moi avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                If c.Text = "" Then
                    MsgBox("Champ vide")
                    c.Focus()
                    Exit Sub
                End If
            End If
        Next
    End Sub

J'obtiens une erreur sur "c.Text" :

Code:

'Text' n'est pas un membre de 'System.Web.UI.Control'.

En effet, chez toi il y a un conflit de référence ;)

J'ai testé avec

Code:

1
2
 
If CType(c, TextBox).Text = "" Then

et ça marche bien, donc le souci se situe plutôt dans la valeur de tes textbox

Je viens de tester avec ce code sur un bouton :

Code:

1
2
3
4
5
6
7
8
9
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                If CType(c, TextBox).Text = "" Then
                    MsgBox("Champ vide")
                    c.Focus()
                    Exit Sub
                End If
            End If
        Next

Mais il ne se passe rien, et les valeurs dans les textbox, c'est du texte quoi :aie:
De plus, quand je débug, il ne rentre pas dans la boucle If TypeOf .., il ressort de suite 8O

Si il y a du texte dans les textbox normal qu'il ne se passe rien :P

Edit : Ça coute rien de vérifier ce qui va suivre : es tu sur d'avoir des textbox sur ton formulaire? :mouarf: Et non pas des richtextbox, combobox, etc...

Enfin je veux dire qu'il n'y a rien comme valeur :oops:
Sinon, c'est bien des textbox, il y a d'autres types mais je m'occupe des textbox actuellement.

Si les contrôles de type TextBox se trouvent dans d'autres contrôles (comme par exemple des contrôles de type GrouBox), il ne va rien se passer car tu ne vas jamais tomber sur tes champs de saisie.

Il faut faire une boucle récursive.

Je ferais quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 public function verif (byval ctl as control) as boolean for each elem as control in ctl.controls select case elem.gettype case textbox if ctype(elem, textbox).text = "" then elem.setfocus return false end if case groupbox verif(elem) end select next return true end function
Je ne garantis pas que ce code compile. Je l'ai fait de mémoire directement sur le forum donc il faudra probablement le retoucher un peu. Mais c'est quelque chose dans ce gout là. C'est l'idée à suivre.
Sur ton bouton, tu appelles la fonction en passant ta form en paramètre et la fonction parcourra tout.

En effet Griftou, j'avais oublié cet aspect "container"...

Plutôt que de faire un Select Case sur les groupbox, panel, tablelayout, etc, on peux tout aussi bien vérifier si le contrôle contient d'autres contrôles non?

Code:

If c.Controls.Count > 0 Then ...

Je n'ai jamais fait comme cela mais à priori, je ne vois pas de raison d'aller contre. Ce serait p-e même plus générique