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.

[rv26t]

Bonjour,

Il suffit d'avoir une méthode qui traite un seul conteneur et qui recevra en paramètre le contrôle GroupBox

Code :

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

1
2
3
4
5
Public Sub chequer2(ByVal cont As Control)
                For Each chch In cont.Controls.OfType(Of CheckBox)()
                    chch.Checked = True
                Next
End Sub

Appel

Code :

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

chequer2(GroupBox2)

Mais afin d'éviter d'avoir 2 méthodes pour mettre à vrai ou à faux, nous allons utiliser un paramètre pour transmettre l'état vrai ou faux souhaité.

Code :

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

1
2
3
4
5
    Public Sub chequerVraiOuFaux(ByVal cont As Control, Etat As Boolean)
        For Each chch In cont.Controls.OfType(Of CheckBox)()
            chch.Checked = Etat
        Next
    End Sub

Appel

Code :

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

1
2
3
chequerVraiOuFaux(GroupBox2, True)
' ou
chequerVraiOuFaux(GroupBox2, False)

[stracoma]

rv26t, je ne sais comment vous remercier. J'ai appris beaucoup de choses
Ma curiosité a été satisfaite.
Problème résolu

[stracoma]

On peut faire de même (plus beau) avec Button1 et Button2 (une seule méthode)

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
        cocheDecoche(Me, True)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        cocheDecoche(Me, False)
    End Sub
    Public Sub cocheDecoche(ByVal cont As Control, ByVal Etat As Boolean)
        For Each grb In cont.Controls.OfType(Of GroupBox)()
            For Each chech In grb.Controls.OfType(Of CheckBox)()
                chech.Checked = Etat
            Next
        Next
    End Sub

[rv26t]

On peut faire de même (plus beau) avec Button1 et Button2 (une seule méthode)

Tout à fait, cela prouve que vous assimilez bien les concepts.
Bonne continuation dans votre apprentissage.