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'.

[Neiflheim]

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

Code :

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

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

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

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

[Nikko42]

Je viens de tester avec ce code sur un bouton :

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.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
De plus, quand je débug, il ne rentre pas dans la boucle If TypeOf .., il ressort de suite

[Neiflheim]

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

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

[Nikko42]

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

[Kropernic]

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 :

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

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.

[Neiflheim]

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 :

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

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

[Kropernic]

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