J'essaie d'ajouter des éléments dans un groupBox. Ça marche pour le premier, mais pas pour la suite.

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
  Dim messageBoxErreur As New ErreurValidationXml
        Dim fichier As FichierErreur
        Dim nombreFichiersErrones As Integer
        Dim listeLabelFichierErrones As New List(Of Label)
        Dim unLabelDeFichier As Label
 
        messageBoxErreur.nomsFichiers.FlatStyle = FlatStyle.System
        messageBoxErreur.TexteFichierErrones.Text = vMessage
        For Each fichier In rListeXmlInvalides
            If Not fichier.erreurs.ToString.Equals("") Then
                nombreFichiersErrones += 1
                listeLabelFichierErrones.Add(CreerLabel(fichier, nombreFichiersErrones))
            End If
        Next
        For Each unLabelDeFichier In listeLabelFichierErrones
            messageBoxErreur.nomsFichiers.Controls.Add(unLabelDeFichier)
        Next
        messageBoxErreur.Show()
Fonction de création des labels
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Function CreerLabel(ByRef rFichier As FichierErreur, ByVal vNombreFichiersErrones As Integer) As Label
        Dim nomFichier As Label
        nomFichier = New Label
        nomFichier.Text = rFichier.nomFichier
        nomFichier.Location = New Point(25, vNombreFichiersErrones * 10 + 25)
        Return nomFichier
    End Function
Est-ce que quelq'un pourrait me dire si je doit changer un paramètre afin de pouvoir ajouter plus d'élément ou si mon erreur est ailleurs...

Merci