Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB4, VB5, VB6 | 06.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: VBMichi | Bewertung: | Views: 12.965 |
www.michael-kaupp.com | System: 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