Seulement un élément est ajouté au groupBox
J'essaie d'ajouter des éléments dans un groupBox. Ça marche pour le premier, mais pas pour la suite.
Code:
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:
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