Discussion :

[Nikko42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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" :

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

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

[Neiflheim]

Bonjour,

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

En vb.net ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nikko42]

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

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

[Nikko42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Neiflheim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Nikko42]

Etrange car moi avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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" :

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