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.

[Sehnsucht]

Ça va être compliqué de répondre à la question étant donné que les 2 codes fonctionnent ; et encore heureux le premier n'est qu'un "raccourci" vers le second.

[stracoma]

Chez moi le 2ème code ne fonctionne pas (et le compilateur ne génère aucune erreur)

[Sehnsucht]

ah oui lu un peu trop vite tu as juste oublié la boucle dans le second code ; dans le premier tu dis bien de prendre dans la collection de contrôle de ton argument ceux de type CheckBox alors que dans le second tu dis si l'argument (at pas les contrôles qu'il contient) est une CheckBox.
Du coup comme Form n'est pas un CheckBox tu n'entres pas dans le If et la méthode ne "fait rien"

[stracoma]

Merci pour l'aide mais je n'ai as encore compris
Je laisse pour demain après midi. C'est l'heure du lit.
à +

[Pol63]

Code :

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

    cocher(Me)

Me est l'instance en cours d'utilisation, donc l'instance du Form
ta fenetre n'est pas un checkbox c'est une fenetre

il te manque une boucle quelquepart pour traiter me.Controls au lieu de me