Discussion :

[cmo1979]

Bonjour,

Voila lorsque je lis l'aide de Visual Basic il spécifie que lorsque qu'on utilise AutoEllipsis (a true) Lorsque la chaine de cararctère dépasse la dimension du label alors le texte s'affiche avec 3 petit point et si l'utilisateur passe la sourris dessus alors le label s'aggrandi et affiche la totalité de la chaine de caractère.

C'est exactement ce que je voudrais mais voila quand j'utilise cette fonction il a bien les 3 petit point à la fin lorsque que le texte est trop grand mais quand je passe la souris dessus il n'y aucun changement et je ne peux pas voir le texte en intégralité.

Quelqu'un peut il m'aider a ce sujet?

Merci d'avance.

Christophe

[Rainui]

Bonjour,

si l'utilisateur passe la sourris dessus alors le label s'aggrandi et affiche la totalité de la chaine de caractère.

Ce n'est pas ce comportement qui se produit.
Le texte complet est affiché dans un tooltip en laissant la souris dessus.

Vous pouvez cependant créer le comportement souhaité en modifiant le propriété AutoSize du label sur les évènements MouseEnter et MouseLeave.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Label1_MouseEnter(sender As System.Object, e As System.EventArgs) Handles Label1.MouseEnter
    DirectCast(sender, Label).AutoSize = True
End Sub
 
Private Sub Label1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles Label1.MouseLeave
    DirectCast(sender, Label).AutoSize = False
End Sub

[cmo1979]

Merci bcp c'et effectivement le fonctionnement que je souhaitais. Par contre j'aimerais aussi que lorsque la chaine de caractère est trop long et que par le biais de Autoellipsis il s'affiche avec 3peitits point j'ai que le texte soit rouge. Si le texte reste contenu dans l'étiquette label alors il reste noir. Peut-on détecter automatiquement si la chaine de caractère est trop grand par rapport au conteneur.

Merci d'avance

Christophe

[Rainui]

Bonjour,
On peut sur l'évènement Paint du Label, mesurer la longueur de la chaine de caractères contenue dans le label:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Label1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
    Dim lbl As Label = DirectCast(sender, Label)
    Dim _TextSize As SizeF = e.Graphics.MeasureString(lbl.Text, lbl.Font)
    If _TextSize.Width > lbl.Width Then
        lbl.ForeColor = Color.Red
    Else
        lbl.ForeColor = Color.Black
    End If
End Sub