Discussion :

[cricrides]

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

[(Benoit)]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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?

[eikeshi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eikeshi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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