Text in RTF-Control anhängen und Formatierung beibehalten Dieser Tipp zeigt, wie man einen Text aus einer RichTextBox an einen Text einer anderen RichTextBox anhängen kann, ohne dabei die Formatieungen zu verlieren.
Autor:   VBMichi	Bewertung:     [ Jetzt bewerten ]	Views:  13.540
www.michael-kaupp.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Immer wieder taucht die Frage auf, wie man den Inhalt einer RTF-TextBox in eine zweite RTF-TextBox einfügen kann, ohne dass hierbei Formatierungen verloren gehen. Im Gegensatz zur "normalen" TextBox, bei der mal die "SelText"-Eigenschaft verwendet, muss man beim RTF-Control lediglich die SelRTF-Eigenschaft verwenden - und schon werden alle Formatierungen übernommen bzw. bleiben die bestehenden Formatierungen der 2. RTF-TextBox erhalten.

Für das nachfolgende Beispiel benötigen Sie folgende Controls auf der Form:

• 2 x RTF-Control (RichTextBox1 und RichTextBox2)
• 1 x CommandButton (Command1)

' Per Knopfdruck wird der Inhalt von RichTextBox2 
' an die aktuelle Position der RichTextBox1 eingefügt
Private Sub Command1_Click()
  With RichTextBox2
    ' gesamten Inhalt der RichTextBox2 markieren
    .SelStart = 0
    .SelLength = Len(.Text)
 
    ' jetzt den markierten Inhalt an die aktuelle Position
    ' der RichTextBox1 einfügen
    RichTextBox1.SelRTF = .SelRTF
 
    ' Alternativ: markierten Inhalt an das Ende der 
    ' RichTextBox1 einfügen
    ' RichTextBox1.SelStart = Len(RichTextBox1.Text)
    ' RichTextBox1.SelRTF = .SelRTF
  End With
End Sub