OVH Cloud OVH Cloud

Label avec orientation verticale

5 réponses
Avatar
Fredou
Bonjour
Je voudrais créer un label dans un formulaire, avec une orientation
verticale (à 90 degrés).
Je débute en VBA et je n'y arrive pô.
Help

5 réponses

Avatar
michdenis
Bonjour Fredou,

Utilise plutôt un contrôle de type textbox.

Tu modifies les propriétés de ce contrôle comme suit :

Multiline = True
SpecialEffect = 0-frmspecialeffectFlat
BorderStyle = 1 FrmBorderStyleSingle
BackColor = "ce que tu veux"
text = "Ce que tu veux qu'il affiche"
Dans la saisie de ton texte, tu peux laisser un espace... selon la disposition que tu veux obtenir !

Lock = True "pour empêcher l'usager d'intervenir sur son contenu"


Est-ce que cela ressemble à ce que tu désires obtenir ?


Salutations!




"Fredou" a écrit dans le message de news:
Bonjour
Je voudrais créer un label dans un formulaire, avec une orientation
verticale (à 90 degrés).
Je débute en VBA et je n'y arrive pô.
Help
Avatar
Michel Pierron
Bonjour Fredou;

Private Function Vlbl$(Title$)
Dim i%
For i = 1 To Len(Title)
Vlbl = Vlbl & Mid$(Title, i, 1) & vbCrLf
Next i
End Function

Exemple:
Label1.Caption = Vlbl("Fredou")

MP

"Fredou" a écrit dans le message de news:

Bonjour
Je voudrais créer un label dans un formulaire, avec une orientation
verticale (à 90 degrés).
Je débute en VBA et je n'y arrive pô.
Help




Avatar
michdenis
Bonjour Michel,

Je ne m'étais pas rendu compte qu'il était possible d'insérer plusieurs lignes dans un contrôle "étiquette" prenant pour acquis que
ce type de contrôle n'ayant pas de propriété "Multiline" comme pour un contrôle "textbox". Sans mettre cette propriété à True, il
est impossible d'insérer une autre ligne en utilisant "Vbcrlf" dans un textbox ... mais rien ne l'empêche dans un "Label"

Et voilà pour la nuance !

Merci.


Salutations!



"Michel Pierron" a écrit dans le message de news: OrIJ%
Bonjour Fredou;

Private Function Vlbl$(Title$)
Dim i%
For i = 1 To Len(Title)
Vlbl = Vlbl & Mid$(Title, i, 1) & vbCrLf
Next i
End Function

Exemple:
Label1.Caption = Vlbl("Fredou")

MP

"Fredou" a écrit dans le message de news:

Bonjour
Je voudrais créer un label dans un formulaire, avec une orientation
verticale (à 90 degrés).
Je débute en VBA et je n'y arrive pô.
Help




Avatar
Fredou
Merci mais ce n'est pas ce que je recherche
Je ne veux pas écrire de pas en haut.

J'ai mal formulé ma question :
Je veux que mes lettres soient penchées.
Dans une cellule, dans l'onglet alignement de la boite de dialogue "format
de cellule", je choisis une orientation à 90 degrés.
Je voudrais le même résultat dans un formulaire.

"michdenis" a écrit dans le message news:
uQ8R$
Bonjour Fredou,

Utilise plutôt un contrôle de type textbox.

Tu modifies les propriétés de ce contrôle comme suit :

Multiline = True
SpecialEffect = 0-frmspecialeffectFlat
BorderStyle = 1 FrmBorderStyleSingle
BackColor = "ce que tu veux"
text = "Ce que tu veux qu'il affiche"
Dans la saisie de ton texte, tu peux laisser un espace... selon la
disposition que tu veux obtenir !


Lock = True "pour empêcher l'usager d'intervenir sur son contenu"


Est-ce que cela ressemble à ce que tu désires obtenir ?


Salutations!




"Fredou" a écrit dans le message de news:


Bonjour
Je voudrais créer un label dans un formulaire, avec une orientation
verticale (à 90 degrés).
Je débute en VBA et je n'y arrive pô.
Help





Avatar
michdenis
Bonjour Fredou,

La boîte de dialogue "Format" n'est pas disponible pour les contrôles du formulaire.

Tu vas devoir te résigner à utiliser une des 2 façons mentionnées dans ce fil.


Salutations!


"Fredou" a écrit dans le message de news:
Merci mais ce n'est pas ce que je recherche
Je ne veux pas écrire de pas en haut.

J'ai mal formulé ma question :
Je veux que mes lettres soient penchées.
Dans une cellule, dans l'onglet alignement de la boite de dialogue "format
de cellule", je choisis une orientation à 90 degrés.
Je voudrais le même résultat dans un formulaire.

"michdenis" a écrit dans le message news:
uQ8R$
Bonjour Fredou,

Utilise plutôt un contrôle de type textbox.

Tu modifies les propriétés de ce contrôle comme suit :

Multiline = True
SpecialEffect = 0-frmspecialeffectFlat
BorderStyle = 1 FrmBorderStyleSingle
BackColor = "ce que tu veux"
text = "Ce que tu veux qu'il affiche"
Dans la saisie de ton texte, tu peux laisser un espace... selon la
disposition que tu veux obtenir !


Lock = True "pour empêcher l'usager d'intervenir sur son contenu"


Est-ce que cela ressemble à ce que tu désires obtenir ?


Salutations!




"Fredou" a écrit dans le message de news:


Bonjour
Je voudrais créer un label dans un formulaire, avec une orientation
verticale (à 90 degrés).
Je débute en VBA et je n'y arrive pô.
Help