Rotation verticale Label

[davide13]

Bonjour à tous,

Je voudrais orienter un label à 90° ou choisir l'alignement du texte afin d'écrire à la verticale. Cela paraît simple mais je ne trouve pas la solution.

Pour info, je ne souhaite pas écrire de la sorte :
h
e
l
l
o

Par avance merci de votre aide.

[Gurdil le nain]

Bonjour,

Pourquoi veux tu faire ceci ? C'est quand même étrange...

Pour un label, c'est très simple : en mode graphique, tu cliques sur la flèche (à droite) de la propriété Text de ton label et tu rentres ton texte comme tu le souhaites...

Envoyé par davide13

Pour info, je ne souhaite pas écrire de la sorte :
h
e
l
l
o

Tu veux écrire comment en verticale alors ?

[davide13]

Je ne souhaite pas avoir une lettre sous une autre mais que le texte soit écrit à la verticale de bas en haut.

Je ne sais pas si vba permet de faire cela ...

[tomlev]

A priori tu ne peux pas le faire avec un label, il faut dessiner le texte manuellement avec Graphics.DrawString, sur un Panel par exemple

Code :

1
2
3
4
5
6
7
8
Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs)
 
    Dim b As Brush = New SolidBrush(panel1.ForeColor)
    Dim f As StringFormat = New StringFormat(StringFormatFlags.DirectionVertical)
 
    e.Graphics.DrawString("blabla", panel1.Font, b, New PointF(0, 0), f)
 
End Sub

[tomlev]

Envoyé par davide13

Je ne sais pas si vba permet de faire cela ...

Euh... on est sur le forum VB.NET, pas VBA. Je sais pas si c'est possible en VBA

EDIT: je déplace

[davide13]

Oui c'est vrai mais j'ai fait le tour de pas mal de forum sur le net et je n'ai pas trouvé de réponse à ce point ; d'autres ont eu la même interrogation pourtant.