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