VB 2010: cocher les checkbox d'un groupBox

Version imprimable

1 pièce(s) jointe(s)

Bonsoir à vous tous.
Pour apprendre le VB2010, j'essaie de faire des petits exemples, en voilà un:
Pièce jointe 162107
Le bouton1 décoche toux les checkbox, pas de problème:

Code:

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:

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:

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.

Bonjour,

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

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:

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:

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:

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

24/11/2014, 22h25
stracoma

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

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

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

25/11/2014, 10h52
rv26t

Citation:

Envoyé par stracoma

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. :ccool:
Bonne continuation dans votre apprentissage.