orientation du text dans un label

Question

Bonjour, je recherche le code pour poouvoir afficher le texte d'un label verticalement avec un sens de lecture vertical.

cs_CanisLupus · Answer

Salut,
Il y a peut-être d'autres méthodes plus ou moins compliquées mais essaie toujours celle-là :

Dim msg As String
Dim i As Integer

msg = "VERTICAL"

Label1.Alignment = vbCenter
Label1.Caption = ""

For i = 1 To Len(msg) - 1
Label1 = Label1 & Mid$(msg, i, 1) & vbCr
Next
Label1 = Label1 & Right$(msg, 1)


Cordialement, CanisLupus

bigbos61 · Answer

Merci pour la réponce.

Mais il y a un problème, ton code permet d'écrire verticalement avec des lettre dans le sens de lecture horizontal.
En réaliter je cherche à écrire un mot dans le sens de lecture vertical de haute en bas ou de bas en haut,.
As-tu une solution

Stéphane

cs_CanisLupus · Answer

Pour &#233;crire dans l'autre sens :

Dim msg As String
Dim i As Integer

msg = "VERTICAL"

Label1.Alignment = vbCenter
Label1.Caption = ""

For i = Len(msg) to 2 step -1
Label1 = Label1 & Mid$(msg, i, 1) & vbCr
Next
Label1 = Label1 & Left$$(msg, 1)

Cordialement, CanisLupus

cs_ITALIA · Answer

un ocx pour ton Posthttp://www.mvps.org/access/downloads/rotate.zip

It@li@

bigbos61 · Answer

Salut CANISLUPUS

Merci pour tes solution, mais ce n'est pas n'ont plus cette solution je souhaite &#233;criture verticale avecune orientation comment dans excel o&#249; tu peut choisir une orientation du texte &#224; 90&#176;.
As-tu une solution.
et merci encore.

cs_ITALIA · Answer

BigBos61 tu as essay&#233; l' OCX que je te Proposes ??

It@li@

Orientation du text dans un label

6 réponses