Centrer le texte verticalement dans une TextBox

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

Bonjour

Citation:

---

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..

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 *****.

Citation:

---

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:

---

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 ...

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

bonjour

Code:

---

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

---

Pièce jointe 471238

pour le textbox:

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

pour le label
.textalign=2

Bonjour Patrick,

Merci pour ta réponse, mais ce n'est pas ce que je cherchais à faire. Je souhaitais centrer le texte dans le sens vertical et horizontal, comme dans une cellule Excel. ;)

Ne construis alors pas d'usine à gaz et utilise tout bêtement un bouton d commande en lieu et place d'un label (tout le reste étant identique en ce qui concerne le traitement de sa propriété Caption). Tes deux alignements y seront appliqués d'office.

La première méthode (que je t'ai montrée et qui utilise une boucle) a été choisie pour rester à ton niveeau apparent.
En voici une autre (qui fera la même chose) : --->>

Code:

---

1 2	a_afficher = "blabla" CommandButton1.Caption = Replace(StrConv(a_afficher, vbUnicode), Chr(0), vbCrLf)

---

Et si tu es un peu astucieux, voilà comment en fonction du nombre de "*" --->>

Code:

---

1 2	nb_etoiles = 3 CommandButton2.Caption = Replace(StrConv(String(nb_etoiles, "*"), vbUnicode), Chr(0), vbCrLf)

---

Merci pour vos commentaires et exemples. :plusser:

Mon problème est résolu à présent.

Je vous réitère mes remerciements

Amicalement