リッチテキストボックスのテキスト文字の色変更 (ID:76583)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

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