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を使いたくないので、コモンダイアログにて
色の設定を赤に変更してあります。