Discussion :

[stracoma]

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:

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

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

Merci à vous.