Discussion :

[bbbastien]

Voila, j'ai deux RichTextBox dans mon projet j'aimerais, quand je click sur un controlbox, que le texte au fomat RTF du premier control RTF s'ajoute à la fin du deuxième controle RTF.J'ai fait plusieurs test et en utilisant par exemple :

Code :

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

rtf1.TextRTF = rtf2.TextRTF & vbCrLf & rtf1.TextRTF

le contenu du rtf2 écrase celui du rtf1 en totaliter.
je pourait utiliser la propriété text mais là je n'aurais plus les balises RTF

Code :

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

rtf1.Text = rtf2.Text & vbCrLf & rtf1.Text[/

il y a t'il une méthode qui me permetterais de rajouter des morceaux de textes formaté RTF facilement, sans avoir besoin de modifier la structure du code RTF manuellement.

Merci d'avance.

[kat40]

as-tu essayé:

Code :

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

rtf1.TextRTF = rtf2.TextRTF + rtf1.TextRTF

ou

Code :

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

rtf1.TextRTF = rtf2.TextRTF & rtf1.TextRTF

[bbbastien]

oui ! cela donne le même resultat que

Code :

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

rtf1.TextRTF = rtf2.TextRTF & rtf1.TextRTF

ici le contenu du rtf2 écrase celui du rtf1 sans concaténation [/code]

[khany]

et en passant par une variable string qui concatène les 2 textes puis tu les remets dans le RTF que tu désires ?

[Bazoom]

Je ne suis pas expert en RTF, mais il me semble qu'il suffit de supprimer la dernière accolade fermante du 1er TextRTF et la première ouvrante du 2ème TextRTF pour avoir un résultat correct :

Code :

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

1
2
3
4
5
6
7
8
9
Private Function ConcatRTF(RTF1 As String, RTF2 As String) As String
   ConcatRTF = Left(RTF1, InStrRev(RTF1, "}") - 1) & Mid(RTF2, 2)
End Function
 
Private Sub Command1_Click()
   With Me.RichTextBox1
      .TextRTF = ConcatRTF(.TextRTF, Me.RichTextBox2.TextRTF)
   End With
End Sub

[bbbastien]

Merci, ta methode marche. Il sufisait bien d'enlever les accolade