Discussion :

[Clydopathe]

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

Code :

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

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 :

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

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

[Hinault Romaric]

Supprime cette ligne de code dans ton programme voir

Code :

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

lab(i).Name = i

modifie plutôt la propriété text

Code :

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

lab(i).text = i

[tomlev]

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

[Clydopathe]

Faire un :

Code :

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

1
2
 
lab(i).text = i

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

Code :

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

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...

[yann_DZ]

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 :

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

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 :

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

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 :

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

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

[Clydopathe]

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...

[Sankasssss]

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

Ou avec un :

Code :

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

for each elem as CheckBox in lab

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