Discussion :

[Gualino]

Bonsoir,

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

[Saintelaitlait]

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 :

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

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 :

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

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

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

Bonne chance

[Gualino]

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.

[asmduty]

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 :

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

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

[Pol63]

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)

[Saintelaitlait]

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 :

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

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 :

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

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.

[chrismonoye]

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

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