Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB4, VB5, VB6 | 06.03.07 |
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