カラーテーブルを設定するには？ (ID:110649)

名前

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

本文 ＶＢ６です。 とあるＨＰにあったプログラムを元に下記のプログラムを組んでみました。 ようはＲＴＦのカラーテーブル部分を直接書き加えたい！っていうプログラムです。 RichTextBox2は、ＲＴＦを見るためのものです。 Private Sub Command1_Click() ss = RichTextBox1.TextRTF fp = InStr(1, ss, ";}}") ss = StrIns(ss, fp + 3, "{\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green192\blue0;}") RichTextBox1.TextRTF = ss RichTextBox1.SelStart = 0 RichTextBox1.SelLength = 0 RichTextBox2.Text = RichTextBox1.TextRTF End Sub ---------------------------------------------------------------------- Private Function StrIns(ss As String, pos As Long, Ssin As String) StrIns = Left(ss, pos - 1) & Ssin & Mid(ss, pos) End Function しかしなぜかＲＴＦにカラーテーブルを書き加えることができません。 なぜでしょう？