comment copier un texte d'une richtextbox a une richtextbox en gardant la mise e

Question

voila, j'essaie d'ajouter un texte a une richtextbox, mais quand j'ajoute, le texte ne garde pas sa mise en forme... voila mon code:
Private Sub Command1_Click()
RichTextBox1.TextRTF = RichTextBox1.Text & vbCrLf & RichTextBox2.Text
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "louuuu"
RichTextBox2.Text = "louu6565uu"
RichTextBox2.SelStart = 0
RichTextBox2.SelLength = 3
RichTextBox2.SelBold = True
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 3
RichTextBox1.SelBold = True
End Sub

j'ai aussi essayer avec ça:

Private Sub Command1_Click()
RichTextBox2.SelStart = 0
RichTextBox2.SelLength = Len(RichTextBox2.Text[RTF])
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & RichTextBox2.SelRTF
End Sub

j'ai fait toutes les combinaison avec .text et .textrtf et ça marche pas :'( ... quelqu'un a la solution ?

Renfield · Answer

Pourquoi mélanger .Text et .TextRTF ?

RichTextBox1.SelRTF = RichTextBox2.SelRTF

cs_ITALIA · Answer

pou copier un RichTextBox dans une Autre en gardant la Mise en Forme c :

RichTextBox2.TextRTF = RichTextBox1.TextRTF 

It@li@

retaks666 · Answer

ah j'ai trouver:
RichTextBox1.SelStart = Len(RichTextBox1)
RichTextBox1.SelLength = 0
RichTextBox1.SelBold = True
RichTextBox1.SelColor = vbRed
RichTextBox1.SelText = Left(RichTextBox2.Text, 3)
RichTextBox1.SelStart = Len(RichTextBox1)
RichTextBox1.SelLength = 0
RichTextBox1.SelBold = False
RichTextBox1.SelColor = vbBlack
RichTextBox1.SelText = Right(RichTextBox2.Text, Len(RichTextBox2.Text) - 3) & vbCrLf

Renfield · Answer

Je crois qu'on a pas du bien comprendre ta question..... ;)

retaks666 · Answer

bezn je voulait juste copier un texte d'une richbox vers une autre en ayant des mises en formes différentes :)

Comment copier un texte d'une richtextbox a une richtextbox en gardant la mise e

5 réponses

Discussions similaires