Bonsoir à vous. J'ai besoin de votre aide.
Pour pratiquer j'ai créé un petit exercice:
Je veux cocher tous les checkbox en cliquant sur le bouton.
Je sais, j'ai déjà posé ce problème qui a été résolu avec ce code:
Mais moi je veux savoir pourquoi ce code ne marche pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cocher(Me) End Sub Public Sub cocher(ByVal cont As Control) For Each CBX In cont.Controls.OfType(Of CheckBox)() CBX.Checked = True Next End Sub
Merci à vous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub cocher(ByVal cont As Control) If TypeOf (cont) Is CheckBox Then CType(cont, CheckBox).Checked = True End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cocher(Me) End Sub
Partager