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

Question

Comment utiliser la propriété .SELALIGNMENT, pour centrer, aligner à gauche ou à droite, du texte dans un RichTextBox.

Merci d'avance, pour les réponses ?

int19h · Answer

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

mb · Answer

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

int19h · Answer

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+

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

3 réponses

Discussions similaires