Selectionner un objet par son nom

Bonjour

Petit probleme: J'ai disons 5 objets du type checkbox
On les appelera Ch1,Ch2,Ch3...
je souhaite avec une boucle, initialiser ces 5 objets.
For i=1 to 5
Dim ch as object
ch="ch"+trim(i.tostring)
ch.text="blabla"
next

Il est évident que cela ne marche pas comme ca mais je ne trouve pas de solution pour initialiser les données via une boucle.

Merci

cricri

Le mieux est de ne pas nommer tes checkboc ch1, ch2.. mais plutôt de tous les appeller ch pour créer un tableau d'objet, qui auront alors une propriété Index de 1 à 5 (ou de 0 à 4, je sais plus). Tu peux ensuite parcourir ce tableau d'objet avec un truc du genre

Code:

---

1 2 3

For i = 1 to Ubound(ch) ch(i).text = "checkbox " + i Next i

---

Hello benoit,

merci pour ta réponse.
En effet sous VB6 on peut créer une collection d'objet.
Sous VB .net ca n'est plus possible...A moins qu'il y ait une astuce que je ne connaisse pas ou alors il faut créer les objets dynamiquement?

Citation:

---

Envoyé par cricrides

Hello benoit,

merci pour ta réponse.
En effet sous VB6 on peut créer une collection d'objet.
Sous VB .net ca n'est plus possible...A moins qu'il y ait une astuce que je ne connaisse pas ou alors il faut créer les objets dynamiquement?

---

Salut, tu peux mettre tes CheckBox dans un Panel 'invisible' par exemple puis faire :

Code:

---

1 2 3 4 5

For Each CB As Control in Panel1.Controls If TypeOf (CB)= ChecktBox then 'code à saisir End if Next

---

Je me suis trompé dans la syntaxe, c'est plutôt comme ça :

Code:

---

1 2 3 4 5

For Each CB As Control In Panel1.Controls If TypeOf (CB) Is CheckBox Then 'TON CODE End If Next

---

Tu peux aussi faire comme ça si tu veux garder le nom de tes checkbox numérotée :

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To 5 Panel1.Controls("CheckBox" + CStr(i)).Text = "TON TEXTE" Next

---