Comment aligner/centrer un texte dans un RichTextBox avec SELALIGNMENT ?

Signaler
-
 int19h -
Comment utiliser la propriété .SELALIGNMENT, pour centrer, aligner à gauche ou à droite, du texte dans un RichTextBox.

Merci d'avance, pour les réponses ?

3 réponses

Dans le code tu mets :

RichTextBox1.SelAlignment = 0 ' Gauche
RichTextBox1.SelAlignment = 1 ' Droite
RichTextBox1.SelAlignment = 2 ' Milieu

Par exemple, tu ajoutes 3 Boutons :
Align(0), Align(1) et Aligne(2)

Puis dans le code :
Private Sub Align_Click(Index As Integer)
RichTextBox1.SelAlignment = Index
End Sub
Bonjour et merci pour ta réponse.
Voici mon bout de code, mais ça ne marche pas !!!

Private Sub btOption0_Click(Index As Integer)
Select Case Index
Case 0
Me!rtb1.Text = "Texte à gauche"
Case 1
Me!rtb1.Text = "Texte à droite"
Case 2
Me!rtb1.Text = "Texte au centre"
End Select
rtb1.SelLength = Len(Me!rtb1.Text)

If rtb1.SelLength > 0 Then
me!rtb1.SelAlignment = Index
End If

End Sub
Bien, j'ai teste et tout marche bien chez moi.

Ca te fait koi comme erreur?
Ou ca ne fait pas koi?

Mail moi en direct, ca surcharge moins le forum ;-)

a+