Discussion :

[stracoma]

Bonsoir à vous tous.
Pour apprendre le VB2010, j'essaie de faire des petits exemples, en voilà un:

Le bouton1 décoche toux les checkbox, pas de problème:

Code :

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

1
2
3
4
5
6
7
 Public Sub resetout(ByVal cont As Control)
        For Each grb In cont.Controls.OfType(Of GroupBox)()
            For Each check In grb.Controls.OfType(Of CheckBox)()
                check.Checked = False
            Next
        Next
    End Sub

Le Bouton2 coche tous les checkbox, pas de problème:

Code :

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

1
2
3
4
5
6
7
 Public Sub chequer(ByVal cont As Control)
        For Each grb In cont.Controls.OfType(Of GroupBox)()
            For Each chech In grb.Controls.OfType(Of CheckBox)()
                chech.Checked = True
            Next
        Next
    End Sub

Le Bouton3 va cocher juste les checkbox du groupBox2, ça m'a pris 2h pour trouver cette solution qui marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub chequer2(ByVal cont As Control)
        Dim grb As Control
        For Each grb In Me.Controls
            If grb.Name Like "GroupBox2" Then
                For Each chch In grb.Controls.OfType(Of CheckBox)()
                    chch.Checked = True
                Next
            End If
        Next
    End Sub

Je me demande s'il y a une autre solution sans passer par "Name Like"
Merci à vous.