Discussion :

[phfle1]

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

[olsimare]

Bonjour.

A mon avis, un coup de debug au pas à pas doit pouvoir t'aiguiller (en se focalisant sur les for each).

Cdt.