Centré du Texte Verticalement dans une TextBox

Question

Bonjour &#224; tous,

Est-il possible de centr&#233; du Texte verticalement dans une TextBox?

Merci d'avance

cs_DARKSIDIOUS · Answer

En quel langage ? VB, VB.NET, VBA ?


En VB6 et VBA, ce n'est pas possible avec le contr&#244;le standard du
textbox (du moins, pas facilement, ca doit bien &#234;tre possible avec une
technique de subclassing, toujours difficile &#224; mettre en place !)

_____________________________________________________________________

bb181185 · Answer

J'utilise du VB6, et avec le contr&#244;le non standard du textbox comment-tu fais?

Renfield · Answer

de quel "controle non standard" est-il question ?

Renfield
Admin CodeS-SourceS - MVP Visual Basic

bb181185 · Answer

Du TextBox du composant : "Microsoft Forms 2.0 Object Library"

jpleroisse · Answer

Bonjour,

Avec un TextBox normal, tu as la propri&#233;t&#233; Alignment, qui te permet ce
centrer le texte, avec celui de MsForm2, tu dois jouer avec le largeur
du contr&#244;le.Dans un comme dans l'autre, tu met la prori&#233;t&#233; Multiligne &#224;
True.( tu mets les propri&#233;t&#233;s Height et Width en fonction de la
longueur du texte.Ceci n'est pas pr&#233;vu pour des textes longs, ni m&#234;me
pour des TextBoxs d'ailleurs, mais plut&#244;t pour un Label.)



Private Command1_Click()

Dim a As String

Dim b As String

Dim s As String

Dim i

a = "Bonjour"

For i = 1 To Len(a)

     b = Mid$(a, i, 1) & vbCrLf

     s = s & b

Next

Text1 = s 'TextBox, si MSForm2

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

jpleroisse · Answer

Re,

Tu corrigeras Private Sub Command1_Click()



jpleroisse

bb181185 · Answer

C'est normale que "Bonjour" se mette : 
B
o
n
j
o
u
r

jpleroisse · Answer

Re,

Je n'ai aucun probl&#232;mes chez moi, le mot bonjour s'&#233;crit bien enti&#232;rement &#224; la verticale ??



jpleroisse

bb181185 · Answer

Tu veux dire par exemple :
________________
| Bonjour                 |
|                              |
|_______________|

Tu veux dire que le bonjour s'ecrit :

_______________
|                            |
|        Bonjour        |
|______________|

?

Renfield · Answer

non non, jpleroisse a juste mal compris ton probl&#232;me ^^

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

il te suffit de jouer avec la marge verticale (TopMargin)
http://www.lebans.com/verticaljustification.htm

Renfield
Admin CodeS-SourceS - MVP Visual Basic

bb181185 · Answer

Oui mais je suis en Visual Basic 6.0 et non en access.

jpleroisse · Answer

Re,

Exact renfield, j'avais compris qu'il
voulais que le texte soit &#233;crit &#224; la verticale.Bon, ce code servira
peut-&#234;tre &#224; d'autres(dans un Label pour faire une enseigne par exemple.)

jpleroisse

bb181185 · Answer

Qu'elle est l'equivalent de TopMargin de la textbox en Access , de la textbox en visual basic 6.0?

jpleroisse · Answer

Re,

Je suppose que sous Access TopMargin indique la marge sup&#233;rieure, en
VB6, Top place le contr&#244;le sur la Form par rapport au bord sup&#233;rieur de
celle-ci.

Tappes par exemple dans Form_Load



Text1.Top = 20 et fais un essai, ensuite remplace 20 par 300, refais un essai et tu verras le r&#233;sultat.



jpleroisse

bb181185 · Answer

J'ai essayer en mettant :

Text1.Top = ((Text1.Height - Tex) - (TextHeight(Text1.Text)) / 2)

Mais cela ne marche pas.

Renfield · Answer

va falloir ruser...

ou faire un usercontrol
ou, simplement virer les bordures, et placer ton txtbox ans une pictureBox

pas tr&#232;s 'pro', mais efficace

Renfield
Admin CodeS-SourceS - MVP Visual Basic

bb181185 · Answer

Mais quel code tu fais pour que le texte de la textbox se centre verticalement et horizontalement dans la picturbox

PCPT · Answer

salut un truc du genre? .... Private Sub Form_Load() ' la Txt1 a son texte et est de la bonne taille, ' en flat center sans bordure, dans Pic1 3d blanc avec bordure Pic1.Width = Txt1.Width Txt1.Left = 5 'bordures Txt1.Top = Pic1.Height / 2 - Txt1.Height / 2 End Sub Coloration syntaxique automatique [AFCK]

bb181185 · Answer

Ah non, c'est bon cela marche.

Et juste pour savoir comment tu fais un usercontrol ?

Renfield · Answer

tu trouveras quelques notions de base ici

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Centré du Texte Verticalement dans une TextBox

21 réponses

Discussions similaires