vérification des checkbox

Version imprimable

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:

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

Salut,

Code:

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

23/11/2010, 15h14
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
23/11/2010, 15h28
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
23/11/2010, 15h44
misterio

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

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:

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

Ou plus simple si framework > 2 :

Code:

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

Citation:

Envoyé par chrismonoye

Ou plus simple si framework > 2 :

Code:

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

23/11/2010, 16h39
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.
23/11/2010, 16h45
yonpo

Code:

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:

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....
23/11/2010, 16h48
misterio

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

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:

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

23/11/2010, 17h02
misterio

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