Discussion :

[katoyi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Totanne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[katoyi]

Merci
Ca me donne ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Totanne]

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 !