VB 2010: Les checkbox avec CType

Version imprimable

1 pièce(s) jointe(s)

Bonsoir à vous. J'ai besoin de votre aide.
Pour pratiquer j'ai créé un petit exercice:

Pièce jointe 163171

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:

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:

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.

05/12/2014, 23h56
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.
06/12/2014, 00h07
stracoma

Chez moi le 2ème code ne fonctionne pas (et le compilateur ne génère aucune erreur)
06/12/2014, 00h19
Sehnsucht

ah oui :aie: 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"
06/12/2014, 00h46
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.
à +
06/12/2014, 12h45
Pol63

Code:

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

bonjour,voici la solution a ton probléme pour tous cocher les CheckBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.cocher()
    End Sub
 
    Private Sub cocher()
        For Each cc As Control In Me.Controls
            If TypeOf cc Is CheckBox Then
                DirectCast(cc, CheckBox).Checked = True
            End If
        Next
    End Sub

Merci à vous.

Citation:

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

J'ai compris cette erreur.

Le code de hacker59 est celui que je cherche, ça marche et j'ai bien compris sa logique. Mais reste une question:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.cocher()
    End Sub
 
    Private Sub cocher()
        For Each cc As Control In Me.Controls
            If TypeOf cc Is CheckBox Then 'si cette condition est vrai donc cc est un Checkbox
                'quel est l'interêt de passer par CType "convertir un Checkbox en Checkbox"
                'pourqoui ne pas juste faire: cc.checked=True
                'Mais je l'ai essayé et ça ne compile pas
                CType(cc, CheckBox).Checked = True
            End If
        Next
    End Sub

Merci à vous

Tu confonds 2 choses, le type de la variable (le type donné à la variable lors de sa déclaration) et le type de ce que contient la variable (possiblement le même mais pas forcément).

cc n'est pas un CheckBox ; cc est une variable de type Control référençant un objet de type CheckBox (ce qui est possible parce que CheckBox hérite de Control).
la classe Control n'a pas de propriété Checked ; donc tenter d'utiliser Checked sur une variable de type Control provoquera une erreur (sauf cas de liaison tardive).
Le test permet de s'assurer que la variable référence bien un objet du bon type et donc quand c'est le cas on sait de manière sûre qu'on peut demander de convertir (via CType) ou considérer (via DirectCast) notre variable dans le type testé (ici CheckBox).
Comme CType et Directcast retourne une valeur du type demandé (ici CheckBox) tu peux donc utiliser sa propriété Checked en toute tranquilité.

À noter que l'implémentation de OfType reprend exactement cela : test TypeOf + DirectCast ; si on devait l'écrire à la main ça donnerait en gros ceci (en mettant de côté la gestion d'erreur et la séparation entre validation immédiate et exécution tardive) :
Code:

1 2 3 4 5 Iterator Function OfType(Of TResult)(source As IEnumerable) As IEnumerable(Of TResult) For Each obj In source If TypeOf obj Is TResult Then Yield DirectCast(obj, TResult) Next End Function

07/12/2014, 00h59
stracoma

Merci infiniment Sehnsucht, explication bien détaillée.
Mon erreur est donc: (If TypeOf cc Is CheckBox)==(cc=Checkbox).
Tout le code devient donc clair
(Par contre Implémentation OfType, c'est trop fort pour moi pour le moment)
Une autre fois "a big thanks"

Comme récapitulatif, ça peut aider les tous débutants comme moi, voilà différentes manières de procéder:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ToutCocher1(Me)
        '  ToutCocher2(Me)
        ' ToutCocher3()
        ' ToutCocher4()
    End Sub
 
    ' ========== 111111111111111 ====================================
    Public Sub ToutCocher1(ByVal cont As Control)
        For Each CHBX In cont.Controls.OfType(Of CheckBox)()
            CHBX.Checked = True
        Next
    End Sub
 
    '============ 2222222222222222222 =================================
    Public Sub ToutCocher2(ByVal cont As Control)
        If TypeOf cont Is Form Then
            For Each elem In cont.Controls.OfType(Of CheckBox)()
                elem.Checked = True
            Next
        End If
    End Sub
 
    '============= 33333333333333333 ======================================
    Public Sub ToutCocher3()
        For Each cont In Me.Controls
            If cont.Name Like "Check*" Then
                cont.checked = True
            End If
        Next
    End Sub
 
    ' ============== 44444444444444444444 ===================================
    Public Sub ToutCocher4()
        For Each cont In Me.Controls
            If TypeOf cont Is CheckBox Then
                CType(cont, CheckBox).Checked = True
            End If
        Next
    End Sub
 
End Class

07/12/2014, 20h57
Sehnsucht

Tes versions 2 et 3 sont un peu "idiotes" :pastaper:
Pour la version 2, rien n'empêche de vouloir cocher tous les Checkox d'un Panel, d'un GroupBox, ou d'un CustomControl ; tester si l'argument est donc de type Form c'est pas judicieux (à ce compte là autant directement demander un argument de type Form plutôt que Control)
Pour la version 3, rien n'empêche de nommer ses contrôles comme on veut (et d'une manière générale c'est plutôt recommandé) et surtout dans l'absolu (donc d'une manière générale) il faut essayer de garder un code avec le moins de dépendances (que ce soit par rapport aux noms données qu'aux types des choses qu'on manipule). Sans parler du fait qu'elle ne compilera pas sous Option Strict On car comme je l'ai déjà dit la classe Control n'a pas de propriété Checked. Et puis ça serait drôle pour une application bancaire si j'ai un formulaire pour gérer des chèques (Check en anglais) je risque de vouloir "cocher" tout un tas de contrôles qui n'ont rien à voir avec des CheckBox ;)

La seule version vraiment viable c'est la version 1 ; on lui donne un control et elle coche tous les checkbox qu'il contient (donc 0 si il en a pas ou s'il ne peut contenir d'autres controles) ; la version 4 est pas potable mais il faudrait vraiment lui passer un argument (sinon elle ne sert que pour le form actuel) et il faudrait (mais ça reste plus accessoire) remplacer CType par DirectCast (qui convient mieux lors des conversion où il y a un lien d'héritage [ou d'implémentation] entre le type actuel et le type demandé)