vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · TextBox & RichTextBox   |   VB-Versionen: VB4, VB5, VB606.03.07
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:   VBMichiBewertung:     [ Jetzt bewerten ]Views:  12.955 
www.michael-kaupp.comSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

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