Probleme avec utilisation de collection

Bonsoir,

Code:

---

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

Dim InputGroupBox As New Collection   Private Sub collections() Handles Button1.Click   With InputGroupBox .Add(Mass_box.Controls) .Add(Geometry_box.Controls) .Add(Suspension_box.Controls) .Add(Steering_box.Controls) End With   For Each tbox As Control In InputGroupBox If TypeOf tbox Is TextBox Then MessageBox.Show(tbox.Name) End If Next   End Sub

---

La procédure crash avant d'atteindre la 1ere messagebox.

Il y a l'air d'y avoir un problème de conversion de type...avec ma collection InputGroupBox...:(

Hello,

j'en conclu que Mass_box, Geometry_box, Suspension_box et Steering_box sont des textbox non?

Si oui tu ne doit pas faire

Code:

---

1 2 3 4 5 6 7

With InputGroupBox .Add(Mass_box.Controls) .Add(Geometry_box.Controls) .Add(Suspension_box.Controls) .Add(Steering_box.Controls) End With

---

Mais bien

Code:

---

1 2 3 4 5 6 7

With InputGroupBox .Add(Mass_box) .Add(Geometry_box) .Add(Suspension_box) .Add(Steering_box) End With

---

De la manière que tu procédais, tu essayais d'ajouter la collection de contrôle contenu dans tes textbox, alors que tu veux seulement ajouter le textbox lui-même. L'affichage du nom des textbox fonctionne très bien si tu fait comme je t'ai montré.
Permet moi de te donner un petit conseil. Dans Visual Studio, lorsque tu tape le nom d'une méthode ou d'un attribut tu as une description, et la description de .controls donne : Obtiens la collections de contrôles contenus dans le contrôle. Cela t'aurait rapidement aider à trouver la solution :aie:

Voila, si tu as d'autre question n'hésite pas!

Bonne chance:ccool:

Non désolé, j'ai mal décrit mon problème.

La collection InputGroupBox est composé de group boxs nommées Mass_box, Suspensions_box...
Au sein des ces group boxs, il y a des text boxs. C'est à ces text boxs que je souhaite appliquer des traitements...

La message box n'est là que pour vérifié que ma boucle sélectionne bien les text boxs.

Plusieurs chose :

- Au lieu de mettre une messagebox pour débuggage pose un point d'arrêt sur ton button1.click, et avance en pas à pas pour voir où ça bloque.

- Je ne sais pas si tu peux ajouter plusieux controls d'un coup comme tu le fait, je pense plutôt que tu dois les ajouter un par un

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With InputGroupBox for each controleM as control in Mass_box.Controls .Add(controleM) next for each controleG as control in Geometry_box.Controls .Add(controleG) next for each controleS as control in Suspension_box.Controls .Add(controleS) next for each controleSt as control in Steering_box.Controls .Add(controleSt) next End With

---

Peut être que le problème ne vient pas de là, mais en pas à pas tu en sauras plus sur ton problème

Citation:

---

Envoyé par Gualino

La procédure crash avant d'atteindre la 1ere messagebox.

---

en cas d'erreur, .net va te donner le type d'erreur (invalidcastexception, outofrangeexception ...), un message d'erreur, et la ligne qui passe en erreur

venir poster sans préciser tout ca est (pour rester poli) inutile
soit les répondeurs passent leur chemin, soit ils tente de deviner et parfois tu n'auras que des réponses vagues ou incorrectes

si ta collection est typée (ce qui semble être le cas) tu peux utiliser un system.collections.generic.list(of ) (list(of control) à priori dans ton cas)


sinon concernant la devinette je pense que c'est :

soit tu fais un addrange, soit tu modifies le for each, car en fait tu places une collection de controles (type controlcollection) et non tous les controles dans ta collection (ton for each as control plante, car ce n'est pas un control)

Hello,

Je vais t'expliquer ton problème, et tu va comprendre comment faire toi-même.

Tu as par exemple Mass_Box qui est un groupBox contenant des textBox.

Tu ajoute LA COLLECTION de contrôles contenu dans Mass_Box dans une variable contenant une collection.

Code:

---

1 2	Dim col as New Collection col.add(Mass_Box.controls)

---

Donc col ne contient pas des contrôles, mais des collections de contrôles.

Tu doit donc aller récupérer le nom des textBox dans des collections, qui sont dans une autre collection.

Tu commence à comprendre?

Je t'explique. Premièrement, notre variable 'col' est une collection qui contient les collections de contrôles de tes groupBox. Si on la parcours avec un for each, on a accès au collections de contrôles. Tu doit donc parcourir chaque collection dans ta collection. Ex:

Code:

---

1 2 3 4 5 6

For Each Collection In col For Each Control As Control In Collection MsgBox(Control.Name) Next Next

---

Donc on regarde chaque controle dans chaque collection dans ta collection de base! Amen!

Essaie comme ca, ca marche impec!

Si ta pas compris gêne toi pas, j'reprendrai mes explications.:mouarf:

Bonsoir,
comme le dit Pol ta collection est typée controls.
A tester :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim InputGroupBox As New List(Of GroupBox) With InputGroupBox .Add(Me.GroupBox1) .Add(Me.GroupBox2) End With   Dim InputTextbox As New List(Of TextBox) For Each grBox As GroupBox In InputGroupBox.OfType(Of GroupBox)() For Each crlTxt As Control In grBox.Controls If (crlTxt Is TryCast(crlTxt, TextBox)) Then InputTextbox.Add(CType(crlTxt, TextBox)) MessageBox.Show(grBox.Name & "." & crlTxt.Name) End If Next Next

---