Utiliser un objet créer dynamiquement

Bonjour tout le monde,
Voila je flanche depuis ce matin sur un petit problème, je crée des Checkbox dynamquement comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

For i As Integer = 0 To test1 - 1 compteobjet = compteobjet + 1 lab(i) = New CheckBox lab(i).Name = i ex(i) = New Label lab(i).AutoSize = True ex(i).AutoSize = False ex(i).Size = New Size(80, 15) lab(i).Location = New Point(X, Y) ex(i).Location = New Point(X, Y + 15) ex(i).ForeColor = Color.DarkBlue lab(i).Text = test(i, 0) Me.GroupBox2.Controls.Add(ex(i)) Me.GroupBox2.Controls.Add(lab(i))   X = X + 90 If X > 281 Then X = 10 Y = Y + 50 End If   Next

---

Et tout fonctionne, ensuite je veux aller lire l'état des ces dites check box, mais je n'y arrive pas, pour le moment j'essayer comme ceci:

Code:

---

1 2 3 4 5 6 7 8

Dim verif As Boolean = False 'variable de verif Dim i As Integer For i = 0 To compteobjet 'boucle lisant tous les check box If lab(i).Checked Then verif = True End If Next

---

Et ça ne fonctionne pas, quelqu'un aurais une petite piste s'il vous plait?
Merci

Supprime cette ligne de code dans ton programme voir

Code:

---

lab(i).Name = i

---

modifie plutôt la propriété text

Code:

---

lab(i).text = i

---

"ça ne fonctionne pas", c'est un peu léger pour pouvoir t'aider...
qu'est-ce qui se passe exactement ?

Faire un :

Code:

---

1 2	lab(i).text = i

---

Change le texte de ma check box et ne me sers à rien, alors que:

Code:

---

1 2	lab(i).name = i

---

me permets de lire son numéro d'index avec un minimum de bidouillage et sans changer l'affichage



@Tomlev: En fait même si je coche ma checkbox, le programme ne le remarque pas. En fait ce que je souhaite est de pouvoir lire l'état de tous mes check box...


En C# ya juste une transposition à faire mais là je seche...

Bonjour

J'imagine que compeobjet est défini à 0 initialement.
Dans ce cas, à mon avis, il y a un souci sur le nombre d'objets à tester dans ta boucle (1 en trop) :

Code:

---

1 2	For i = 0 To compteobjet - 1 Next

---

Ensuite, tu peux essayer ça :

Cas1 : la variable verif indique true si une des checkbox est cochée :

Code:

---

1 2 3 4 5

Dim verif As Boolean = False For i = 0 To compteobjet - 1 verif = verif Or lab(i).Checked If verif = True Then Exit For Next

---

Cas 2 : la variable verif indique true si toutes les checkbox sont cochées :

Code:

---

1 2 3 4 5

Dim verif As Boolean = True For i = 0 To compteobjet - 1 verif = verif And lab(i).Checked If verif = False Then Exit For Next

---

Mais j'ai peut-être mal compris moi aussi.

Ps : Ca serait sans doute plus propre avec un Do until ...Loop

Ca marche^^, merci yann_DZ, effectivement je l'initialisais à 0 et de ce fa8it j'allais trop loin dans l'index, mais j'y ai pas pensé...

Comme quoi que les erreurs simples sont les plus chiantes à trouver...

Citation:

---

Envoyé par yann_DZ

Bonjour
Ps : Ca serait sans doute plus propre avec un Do until ...Loop

---

Ou avec un :

Code:

---

for each elem as CheckBox in lab

---

:ccool:

P.S. : Pour la solution de lilroma j'ai pas compris :aie: