Utiliser une variable dans le nom d'un controle

Bonjour,

je vous expose mon problème.
Je souhaiterais utiliser une variable dans le nom d'un contrôle.
En effet, je dois effectuer le même traitement sur plusieurs contrôle. Je souhaiterais donc faire une boucle en ne changeant que le nom du contrôle.


Par exemple pour récupérer le nombre d'items des contrôles CheckedListBox

Au lieu de faire :

Code:

---

1 2 3 4 5 6

CheckedListBox1.Items.Count CheckedListBox2.Items.Count CheckedListBox3.Items.Count CheckedListBox4.Items.Count CheckedListBox5.Items.Count ...

---

Je pourrais faire une boucle en mettant l'indice du contrôle dans une variable.


J'ai trouvé une solution sur le net mais cela ne marche pas :

Code:

---

Me.Controls("CheckedListBox" & i).Items.Count

---

Cela me renvoie une erreur :

Citation:

---

Variable objet ou variable d'un bloc With non définie.

---

Quelqu'un pourrait me donner la solution pour utiliser une variable dans le nom d'un contrôle ?

Salut

Code:

---

1 2 3 4 5 6

dim res as integer For Each ctrl As Control In Me.Controls If TypeOf ctrl Is CheckedListBox Then res = DirectCast(ctrl, CheckedListBox).Items.Count End If Next

---

tu ne peux pas assigner une valeur à CheckedListBox.Items.Count
tu peux assigner la valeur de CheckedListBox.Items.Count
à une variable

que veux tu faire ?

Bonjour,

tu peux le faire ainsi pour les "CheckedListBox"

Code:

---

1 2 3

For i As Integer = 1 To 5 MsgBox(DirectCast(Me.Controls("CheckedListBox" & i), CheckedListBox).Items.Count) Next

---

A+, Hervé.