リッチテキストボックスでフォントの色を保つには？

解決

梶原勝則 2002-05-24 06:41:00 No: 75633

リッチテキストボックスを使っています。
RichTextBox1.Text = RichTextBox1.Text + "あ"
のようにして、最後に一文字付け加えると、途中の文字の色を
RichTextBox1.SelColor=vbRedのようにして、色を赤に変えていても
”あ”を付け加えた瞬間に、リッチテキストボックスの最初の１文字目の色
に文章全部が変わってしまいます。
色の変化を保つ文字の付け加え方を教えてください。

梶原 2002-05-26 06:53:47 No: 75634

RichTextBox2を作ってそこに文字を書き込み、それをRichTextBox1に貼り付けるような形にすると、前に入力した文字の色を変えずに文字を付け加えることができました。ありがとうございました。

    RichTextBox1.SetFocus
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
    RichTextBox2.Text = ""
    RichTextBox2.Text = "あ"
    RichTextBox1.SelText = RichTextBox2.Text