Elimination des cases à cocher dans VB.NET

Je suis en train de faire une mission pour l'Uni et dans mon VB.NET formulaire j'ai des cases à cocher, je suis en train de parcourir et en clair (j'ai un bouton qui va effacer le formulaire)

Mon problème est qu'il semble y avoir aucun bien je peux utiliser pour définir l'état d'une case à cocher lorsqu'il n'est pas explicitement dire VB dont la case que je veux utiliser. par exemple, je peux aller

WineCheckBox.Checked = False

Qui vous cochez la case, mais j'ai baguette de SÉCHER le code un peu et ne pas avoir à répéter cette opération pour chaque case à cocher que j'ai, c'est ce que j'essayais de faire:

If TypeOf element Is CheckBox Then
    element.Checked = False
End If

J'ai essayé d'utiliser element.CheckState et element.Checked et les deux fois j'ai "Vérifié (ou CheckState) n'est pas membre du Système.De Windows.Les formulaires.Contrôle"

J'ai regardé à travers tous les attributs que je peux trouver pour cela, et aucune d'entre elles semblent de l'utiliser pour moi...

Suis-je raté quelque chose? ou est-ce tout simplement pas possible de faire

Grâce

EDIT:

c'est l'ensemble du bloc de code:

'clear the controls
    For Each element As Control In Me.Controls
        If TypeOf element Is TextBox Then
            element.Text = ""
        End If
        If TypeOf element Is CheckBox Then
            element.Checked = False
        End If
    Next

InformationsquelleAutor Zen | 2011-03-18

8

Ce type avez-vous déclaré element comme? Si c'est juste un Control alors c'est un type de base pour CheckBox qui n'ont pas la propriété checked. Peut-être essayer:
```
If TypeOf element Is CheckBox Then
    DirectCast(element,CheckBox).checked = False
End If
```
- ajouté plus de code pour post original
- Je vous recommandons d'utiliser DirectCast puisque c'est seulement Cases à cocher ou des dérivés de contrôle True. Cela évite la charge supplémentaire de l'utilisation de CType comme il a parfois de forcer des valeurs d'un type différent. Voir cette réponse pour l'une de mes premières questions (Casting Types de données avec DirectCast, CType, TryCast).
InformationsquelleAutor Jon Egerton

Comment sur:

   For Each element As Control In Me.Controls
        If TypeOf element Is TextBox Then
            element.Text = ""
        End If
        If TypeOf element Is CheckBox Then
            Dim chk As CheckBox = CType(element, CheckBox)
            chk.Checked = False
        End If
    Next

InformationsquelleAutor Matt Wilko

Vous devez vous connecter pour publier un commentaire.