Ajout dynamique de label sur un form

J'ai un form surlequel je veux ajouter dynamiquement des labels (a la queue leu leu). Ces labels contiennent des textes différents donc une longueur différente. Mon problème c'est que je ne sais pas exactement la taille de ces labels pour pouvoir positionner l'un après l'autre mes labels.
Voici un bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function addParameters(ByVal params As Collection, ByVal emphasize As Integer) As Integer For i As Integer = deb To fin Dim label As New Label() Dim txt As String = CType(params(i), String)   label.Text = txt label.AutoSize = True ' label.Location = New Point(???, 0) parametre.Controls.Add(label) Next end function

---

parametre c'est mon form

Quelqu'un a t il une idée.

Merci

La propriété MeasureString de la classe Graphics devrait faire l'affaire.
Du coup, il vaut mieux mettre ton autosize à false et regler la taille et la position de ton label dans la boucle.

un truc du style :

Code:

---

MonRectangle (ou MaSize, je sais plus) = MonLabel.CreateGraphics.MeasureString(texte et font en parametre)

---

Merci
Ca me donne ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Function addParameters(ByVal params As Collection, ByVal emphasize As Integer) As Integer Dim position as Integer=0 For i As Integer = deb To fin Dim label As New Label() Dim txt As String = label.Text = txt label.AutoSize = True Dim size As SizeF = label.CreateGraphics.MeasureString(txt, label.Font) label.Location = New Point(position, 0) position += CType(size.Width, Integer) 'Pour positionner après le label précédent Variables.parametre.Controls.Add(label) Next End Function

---

Mais il faut garder le AutoSize à True sinon il m'agrandit la fenêtre.

Merci pour l'aide.:lol:

Si ca marche avec autoSize a true ca doit vouloir dire que AutoSize utilise MeasureString dans ses calculs ...
L'important c'est que ca marche ! ;)