Discussion :

[misterio]

Bonjour,

J'ai essayé de faire en sorte qu'en appuyant sur un bouton, le programme puisse vérifier si un ma liste de checkbox contient un checkbox coché... j'ai mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
For Each Ctrl As Control In Me.Controls
     If TypeOf Ctrl Is CheckBox Then
          If Ctrl.Value = 0 Then
               MsgBox("toto")
               Exit Sub
          End If
     End If
Next

Cela fonctionne en VB6 mais je ne sais pas comment le faire fonctionner sur VB.NET sachant que je trouve des problèmes dans la ligne 3.

Merci de m'aider

[yonpo]

Salut,

Code vb :

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

1
2
3
4
5
6
7
8
9
 
For Each Ctrl As Control In Me.Controls
     If TypeOf Ctrl Is CheckBox Then
          If Ctrl.Checked = True Then
               MsgBox("toto")
               Exit Sub
          End If
     End If
Next

[misterio]

Salut,

Merci pour votre réponse.. j'ai tenté la même chose, mais il me signale que Cheched n'est pas membre de System.Windows.Forms.Control

[yonpo]

Je ne sais pas ce que tu as comme IDE mais visual studio te guide lors de l'écriture du code afin de ne pas avoir de faute de syntaxe.

C'est Checked

[misterio]

C'est exactement ce que j'ai mis... j'utilise .net framework 3.5 et vs 2008

[yonpo]

Oups, normal que ça ne marche pas, Ctrl n'est pas de type CheckBox d'où le fait que Ctrl.Checked renvoie une erreur.

Code vb :

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

1
2
3
4
5
6
7
8
9
10
 
For Each Ctrl As Control In Me.Controls
            If TypeOf Ctrl Is CheckBox Then
                Dim MonCheckBox As CheckBox = CType(Ctrl, CheckBox)
                If MonCheckBox.Checked = True Then
                    MsgBox("toto")
                    Exit Sub
                End If
            End If
        Next

[chrismonoye]

Ou plus simple si framework > 2 :

Code :

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

1
2
3
4
5
6
        For Each Ctrl As CheckBox In Me.Controls.OfType(Of CheckBox)()
            If Ctrl.Checked = True Then
                MsgBox("toto")
                Exit Sub
            End If
        Next

[yonpo]

Ou plus simple si framework > 2 :

Code :

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

1
2
3
4
5
6
        For Each Ctrl As CheckBox In Me.Controls.OfType(Of CheckBox)()
            If Ctrl.Checked = True Then
                MsgBox("toto")
                Exit Sub
            End If
        Next

+1

[misterio]

Merci bcp cela marche bien chez moi mais il ne répond pas à mes besoins...
Supposant que j'ai trois checkbox, si je n'ai rien coché je dois recevoir le message... si je coche une entre les trois je ne devrai pas recevoir de msg...

j'espère que cette fois ci j'ai bien expliqué ce que je veux.

[yonpo]

Code vb :

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

If Ctrl.Checked = True Then

Signifie, si le checkbox actuel est coché alors....
Il suffit de faire un truc comme ça:

Si le checkbox actuel n'est pas coché alors...

Code vb :

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

If Ctrl.Checked = False Then

Mais le problème, c'est que, si le test est vrai, tu affiches un message à chaque checkbox parcourut. Il faut peut-être modifier ton code....

[misterio]

Oui mais l'événement est dans un bouton

[chrismonoye]

En créant une variable et surtout parcourir l'ensemble sans sortir.
Si un trouvé cliqué, alors la variable booléenne passe à Vrai et le message ne s'affichera pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim bool As Boolean = False
 
        For Each Ctrl As CheckBox In Me.Controls.OfType(Of CheckBox)()
            If Ctrl.Checked = True Then
                bool = True
            End If
        Next
        If bool = False Then
            MessageBox.Show("aucun CheckBox cliqué")
        End If
    End Sub

[misterio]

oooooh merci chris il suffit que j'analyse les choses pour trouver la solution mais bon )) merci encore