Modifier automatiquement la taille d'un Label
Bonjour,
Mon problème est le suivant:
J'ai un label dans un GroupBox que j'ai besoin de modifier sa hauteur automatiquement car le texte du label est différent à chaque fois et, dans certain cas, une partie du label dépasse le groupbox.
Il faut donc que je sois en mesure de pouvoir agrandir le label pour être en mesure de lire tout son contenue.
J'ai trouvé une manière d'y parvenir mais elle n'est pas très bonne (selon moi):
Dans ce code, j'ai 2 label:
Label1: sert à mesurer
Label2: celui dont la taille doit être modifié
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Label1.Text = TextBox1.Text
If Label1.Width > Me.Width - 22 Then
If Label1.Width < GroupBox1.Width * 2 Then
Label2.Height = Label2.Height * 3
Else
If Label1.Width < GroupBox1.Width * 4 Then
Label2.Height = Label2.Height * 4
Else
If Label1.Width < GroupBox1.Width * 5 Then
Label2.Height = Label2.Height * 5
Else
If Label1.Width < GroupBox1.Width * 6 Then
Label2.Height = Label2.Height * 6
Else
If Label1.Width < GroupBox1.Width * 7 Then
Label2.Height = Label2.Height * 7
Else
If Label1.Width < GroupBox1.Width * 8 Then
Label2.Height = Label2.Height * 8
Else
Label2.Height = Label2.Height * 2
End If
End If
End If
End If
End If
End If
End If |
Merci