label vertical vb

Version imprimable

09/03/2011, 14h43
redstoff

label vertical vb

bonjour

je suis entrain de chercher comment: (2façons de voir mais avec le même but)

- ecrire dans un label avec les lettres orientées à 90°; je ferais donc des saut de ligne

- ecrire normalement dans le label et pouvoir le pivoter sur un coin de 90°

Si quelqu'un à une idée pour ce genre de cas je suis tout oui

Merci

Bonjour,
A ma connaissance, Label n'a pas de propriété permettant de placer le texte verticalement.
Pour

Citation:

- ecrire dans un label avec les lettres orientées à 90°; je ferais donc des saut de ligne

Voici un exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub UserForm_Initialize() Dim Mot As String: Mot = "Noir et blanc" Dim Txt As String, x% For x = 1 To Len(Mot) Txt = Txt & Mid(Mot, x, 1) & vbCrLf Next With Me.Label2 .Height = Len(Txt) * 3.5 ' Adapte la hauteur en fonction de la longueur du texte .Caption = Txt End With End Sub

09/03/2011, 15h18
redstoff

obnjour,

bien vu pour la commande mais j'ai réussi à me l'a faire mais ça ne faisait pas terrible.

je cherche donc une autre solution

Bonjour
Dans la même visée

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim Mot As String
 
Mot = "Un peu de gymnastique sans boucle"
Mot = Join(Split(StrConv(Mot, vbUnicode), Chr(0)), vbCrLf)
With Me.Label2
    .Height = Len(Mot) * 3.5    ' Adapte la hauteur en fonction de la longueur du texte
    .Caption = Mot
End With
End Sub

EDIT
Ou plus simplement

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim Mot As String
 
Mot = "Texte à afficher"
Mot = Replace(StrConv(Mot, vbUnicode), Chr(0), Chr(10))
With Me.Label1
    .Height = Len(Mot) * 5
    .Caption = Mot
End With
End Sub

10/03/2011, 08h07
redstoff

bonjour,

Pas mal la commande mais malheureusement le résultat reste le même.

il y a bien quelqu'un qui va savoir obtenir le résultat souhaité.

Mais j'aimerai développer la piste de faire pivoter le label sur un coin.

quelqu'un sait si c'est possible?