CheckBox - Checked

Alors bonjour,


Oui ma question pourrai peut être être simple pour pas mal d'entre vous mais perso elle me pose vraiment problème et je ne trouve pas de solution sur le web, alors voila:

J'ai une série de 28 CheckBox nommé de ING_CB_VN0 à ING_CB_VN27

J'aimerai pouvoir vérifier une par une chaque checkbox et voir si elle est coché, je pensais donc utilisé le code que je fait toujours:

Code:

---

1 2 3 4 5

For NB = 0 To 27 If Controls("ING_CB_VN" & NB).checked = false Then 'ce que je veut End If Next

---

Or Visual studio me dit que "checked" n'est pas un membre de control ....:weird:

Comment puis-je faire pour m'éviter cette erreur ? Merci d'avance :roll:

Salut

Code:

---

If me.Controls("ING_CB_VN" & NB).checked = false Then

---

Bonjour,

Ce "Checked" n'est pas un membre car tu dois caster le type Control en type CheckBox :

Code:

---

1 2 3 4 5 6 7

For NB = 0 To 27 Dim ctrl = TryCast(Me.Controls("ING_CB_VN" & i.ToString), CheckBox) If ctrl.Checked = False Then 'Ce que tu veux ici .... End If Next

---

....un truc dans le genre.....

ASTUCE : Tu peux utiliser la propriété ".Tag" de chaque Checkbox au lieu de te baser sur le nom des contrôles. Ce membre .Tag est disponible pour quasi tout les contrôles.

A+ et passes de bonnes fêtes de fin d'année.;)

Re

interroge/boucle sur l'ensemble des contrôles.

Code:

---

For Each Ctrl As Control in Controls

---

Alors que

Code:

---

1 2 3 4 5

For NB = 0 To 27 If me.Controls("ING_CB_VN" & NB).checked = false Then 'ce que je veut End If Next

---

n'interroge que les contrôles ayant un Name précis, donc bouclage plus court.

Citation:

---

Envoyé par ProgElecT

Re

interroge/boucle sur l'ensemble des contrôles.

Code:

---

For Each Ctrl As Control in Controls

---

Alors que

Code:

---

1 2 3 4 5

For NB = 0 To 27 If me.Controls("ING_CB_VN" & NB).checked = false Then 'ce que je veut End If Next

---

n'interroge que les contrôles ayant un Name précis, donc bouclage plus court.

---

Au temps pour moi j'avais lu en diagonal son problème.......
La solution : Il faut juste Caster le type Control en type CheckBox pour que le membre .Checked soit reconnu (cf mon 1er message). ;)

++

Yes parfait! Merci à vous pour vos réponses :D

Voici donc le code parfaitement fonctionnel:

Code:

---

1 2 3 4 5 6

For NB = 0 To 27 Dim Controle = TryCast(Controls("ING_CB_VN" & NB.ToString), CheckBox) If Controle.Checked = True Then 'Ce que je veut End If Next

---

Bonne fête de fin d’année à tous :zoubi: