リッチテキストボックスのテキスト文字の色変更

お茶 2002-12-11 23:47:13 No: 76583

Private Sub Command1_Click()
Dim a As Integer

書き直しです。
リッチテキストボックスに文字を表示させると同時に
テキストの色を赤と黒に判別させてループにて表示させて
いきたいのですが、ShowColorにて色選択のボックスを表示
させずに、色の変更したいテキストボックスを選択して
アクティブ状態にしなくても、テキストの色は随時変更
できるのでしょうか？
If IsNull(RichTextBox1.SelColor) = False Then
CommonDialog1.Color = RichTextBox1.SelColor
End If

'' CommonDialog1.ShowColor
'' a = Err.Number

RichTextBox1.SelColor = CommonDialog1.Color
End Sub

このプログラムだと、テキストとドラッグにて選択状態に
しないと、テキストの色が変わりませんでした。
ShowColorを使いたくないので、コモンダイアログにて
色の設定を赤に変更してあります。