Discussion :

[DzBadBoy]

*Bonjour*

Comment aligner verticalement un text dans un TextBox ?? ou étiquette .... ect

*merci*

[stigma]

Pas possible je crois....
Si j'ai bien compris ce que tu veux faire.

[DzBadBoy]

sur le net j'ai trouvé ceci mais ça ne pas marché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub VerticallyCenter(ctl As Control)
 
Dim lngHeight As Long
 
lngHeight = fTextHeight(ctl)
 
ctl.TopMargin = ((ctl.Height - lngHeight) / 2)
 
End Sub

Pourquoi ????

[Invité]

Bonjour

A mon avis il te manque une fonction qui est : fTextHeight

Il ne s'agit pas d'une fonction Access, mais d'une fonction personnelle qui a mon avis doit faire appel à des APIs pour calculer la hauteur des caractères.

Philippe

[LE VIEUX]

bonjour,
même si effectivement il faut un peu de gym pour lire est-ce que la propriété vertical ne suffit pas ?

[domibigoudi]

Bonjour,

Tu peux utiliser un exemple de code ci-dessous pour convertir du texte horizontal en vertical.

Le texte du label est paramétré en Tahoma et taille 10.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command2_Click()
    Label5.Caption = ""
    For x = 1 To Len(Text3)
        Label5.Caption = Label5.Caption & Mid(Text3, x, 1) & Chr(13) & Chr(10)
    Next x
    Label5.Height = Len(Text3) * 2400
End Sub

A la commande du bouton, le code converti le contenu de la textbox (text3) en prenant caractère par caractère et ajoute un retour chariot (Chr(13) & Chr(10)).

Pour la hauteur du label, le nombre de caractères * 2400 correspond à la police Tahoma et taille 10. Si tu modifies ces paramètres, reclacule par tâtonnement la valeur '2400'.

Bonne journée.

[stigma]

Au départ je pensais qu'il voulait faire pivoter un texte comme une image
Jolie bidouille. Merci

[DzBadBoy]

Salut, et merci bien pour votre réponse domibigoudi
Mais ce n'est ce que je voudrais, ceci peux vous aidez à comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
---------                -----------
   Text
               --->          Text   
 
---------                -----------

[pier.antoine]

Bonjour

Quelque chose comme cela, peut-être?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
' soit lig1, ligne supérieure, lig2, ligne inférieure, CtlTxt controle Texte
 
dim Ylig1 ' ordonnée de lig1
Ylig = me.lig1.top
 
dim Ylig2 ' ordonnée de lig2
Ylig2 = me.lig2.top
 
dim hCtlTxt ' hauteur CtlTxt
hCtlTxt = Me.TextWidth("mon text"))
 
dim YCtlTxt ' ordonnée de CtlTxt
 
 'Recherche du milieu entre lig1 et lig2
dim milieu
milieu = (Ylig2-Ylig1)/2
 
 
'Recherche de la demi hauteur de CtlTxt
dim demihCtlTxt 
demihCtlTxt = hCtlTxt /2
 
 
'Positionnement du contrôle texte
YCtlTxt = milieu -demihCtlTxt 
 
'en fiasant plus vite, on touve :
 
YCtlTxt = ((me.lig2.top-me.lig1.top)/2)-((Me.TextWidth("mon text"))/2)

Je ne suis pas sûr de moi quant à la hauteur du contrôle CtlTxt. Je crois que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextWidth("mon text"))

désigne un texte qu'on veut afficher sur un état sans rapport avec un contrôle.

En tout cas, je vous suggère d'aller faire un petit tour du côté du tutoriel Améliorez la présentation de vos états Access




Pierre

[Invité]

Bonjour

Comme je l'ai dit il faut récupérer la hauteur du texte.

Pour cela je t'invite à éplucher ce tuto : Un formulaire auto-extensible pour Access

Tu y verras comment récupérer la hauteur du texte, par la suite ce sera plus facile pour le centrer.


Philippe