Bonjour,

Pour je ne sais quel raison ceci ne fonctionne pas:

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
   Sub collections() Handles MyClass.Load
 
        Dim InputGroupBox As New Collection
        With InputGroupBox
            .Add(Mass_box.Controls)
            .Add(Geometry_box.Controls)
            .Add(Suspension_box.Controls)
            .Add(Wheels_box.Controls)
            .Add(Steering_box.Controls)
        End With
 
        Dim InputTextbox As New Collection
 
        For Each textbox As TextBox In InputGroupBox
            InputTextbox.Add(textbox)
            MessageBox.Show(textbox.Name)
        Next
    End Sub
Si l'on fait .controls à un groupbox on a bien tous les controls du groupbox non?

Si et seulement si je met un break point, il m'informe que la collection crée est de type Microsoft.VisualBasic.Collection et qu'elle devrait plutot être de type System.Windows.Form.Control.ControlCollection...