Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Only one control is added to groupBox

phfle1phfle1 Member Posts: 1
I'm trying to add controls to a groupBOx, but only the first one goes right.


[code]
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()
[/code]

FUnction to create the labels
[code]
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

[/code]

thanks
Sign In or Register to comment.