Discussion :

[Vba14]

Bonjour à tous,

Tout est dans l'intitulé de la discussion. Existe t-il un moyen de centre verticalement du texte dans une TextBox ?

Le sujet a dû être abordé plus d'une fois, mais je n'ai pas trouvé de réponse.

Pouvez-vous m'apporter votre aide s'il vous plait ?

Je vous en remercie par avance

[unparia]

Bonjour

Existe t-il un moyen de centre verticalement du texte dans une TextBox ?

Réponse : oui et j'ai encore récemment montré comment transformer une chaîne de caractères en insérant un saut de ligne entre chaque caractère (il n'existe pas d'autre méthode)
Mais :
- s'il s'agit d'une donnée, elle serait difficilement ensuite exploitable sans supprimer préalablement les sauts de lignes ! (usine à gaz)
- s'il ne s'agit que d'afficher : pourquoi donc une textbox (qui est un contrôle d'édition) ?

Je réagirai selon ta réponse..

[Vba14]

Bonjour unparia,

Merci pour ta réponse. J'ai pris comme exemple une TextBox, mais cela pourrait-être un Label. Il s'agit en fait d'y afficher un résultat selon une condition de valeur dans une Combo.

Si dans la combo la valeur est "Très facile" alors le résultat du contrôle (Label ou TextBox) sera *, si "facile" alors * *, si "Moyen" alors ***, si difficile alors ****, si très difficile alors *****.

[unparia]

Si dans la combo la valeur est "Très facile" alors le résultat du contrôle (Label ou TextBox) sera *, si "facile" alors * *, si "Moyen" alors ***, si difficile alors ****, si très difficile alors *****

je ne vois rien de vertical là-dedans.
Mais si tu veux afficher 4 "*" verticalement dans un label toto --->>

Code :

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

1
2
3
4
5
titi = ""
for k = 1 to 4
 titi = titi & "*" & vbcrlf
next
toto.capttion = trim titi

Pour ce qui est du "centrage", un label possède la propriété nécessaire (TextAlign), dont je ne vois d'ailleurs pas l'utilité dans ton cas, puisque un seul caractère en largeur ...

[Vba14]

Merci unparia.

Le texte, dans mon cas des étoiles, doivent être centrées verticalement et horizontalement. Je devrais pouvoir m'en sortir avec tes explications.
Encore merci
Très cordialement

[patricktoulon]

bonjour

Code :

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

1
2
TextBox1 = Split(Replace("****", "*", "*" & vbCrLf) & "|", vbCrLf & "|")(0)
Label1 = Split(Replace("****", "*", "*" & vbCrLf) & "|", vbCrLf & "|")(0)

pour le textbox:

.textalign=2
.Multiline=true
.selectionmargin=false

pour le label
.textalign=2