Orientation du text dans un label

bigbos61 Messages postés 4 Date d'inscription jeudi 23 septembre 2004 Statut Membre Dernière intervention 18 janvier 2005 - 2 janv. 2005 à 14:13
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 19 janv. 2005 à 08:25
Bonjour, je recherche le code pour poouvoir afficher le texte d'un label verticalement avec un sens de lecture vertical.

6 réponses

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
2 janv. 2005 à 17:58
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
0
bigbos61 Messages postés 4 Date d'inscription jeudi 23 septembre 2004 Statut Membre Dernière intervention 18 janvier 2005
2 janv. 2005 à 20:44
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
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
3 janv. 2005 à 19:47
Pour é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
0
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
4 janv. 2005 à 13:33
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
bigbos61 Messages postés 4 Date d'inscription jeudi 23 septembre 2004 Statut Membre Dernière intervention 18 janvier 2005
18 janv. 2005 à 19:23
Salut CANISLUPUS

Merci pour tes solution, mais ce n'est pas n'ont plus cette solution je souhaite écriture verticale avecune orientation comment dans excel où tu peut choisir une orientation du texte à 90°.
As-tu une solution.
et merci encore.
0
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
19 janv. 2005 à 08:25
BigBos61 tu as essayé l' OCX que je te Proposes ??

It@li@
0
Rejoignez-nous