リッチテキストボックスでテキストを繋げるには？

解決

FFT 2008-05-20 16:47:12 No: 100727

フォーム上に2つのリッチテキストボックスがあります(RichTextBox1とRichTextBox2)。それぞれに表示されている文字には文字の色や太さなどの属性もあります。

その2つのリッチテキストボックスの内容を繋げてRichTextBox1に表示しようと思って、
RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox2.TextRTF
としたのですが、つながってくれませんでした。

RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
としたらつながるのですが、属性が全て解除された状態でつながってしまいます。

属性も残したままつなげるにはどうすればいいのでしょうか？よろしくお願い致します。

魔界の仮面弁士 2008-05-20 18:12:32 No: 100728

これでどうでしょう。

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelRTF = RichTextBox2.TextRTF

FFT 2008-05-21 04:00:52 No: 100729

魔界の仮面弁士さん、ありがとうございました。

明け方までずっと悩んでいて、半ばあきらめかけていたので、本当に感動です。

助けていただきましてありがとうございました。