VBで文字列の一部だけ色を変えたい

Question

###前提・実現したいこと
VBで,CSVデータを配列に取り込んで,RichTextBoxに貼り付けております。
このCSVデータの中に一部だけ色を変えて表示させたい部分があります。
その色を変えたい部分を出来れば、HTMLのように

「ボウリングは、<font color="カラーコード">木曜日</font>です」←（ひとつの配列の区画の中）
みたいな感じでRichTextBox内の一部の文字の色を変えたいです。

CSVデータの中身

また、他にいい方法がありましたら、ご教授ください。

###補足情報(言語/FW/ツール等のバージョンなど)
RichTextBoxをこのようにlist化しています

Dim mytxt As New List(Of RichTextBox)
mytxt.Add(RichTextBox1)
mytxt.Add(RichTextBox2)
mytxt.Add(RichTextBox3)
~~~~~~~(略)~~~~~~~~~~~~~
mytxt53.Add(RichTextBox53)

###環境
Visual Studio 2015
言語 VB
win7 sp1 64bit

Answer 1

mytxt(i)をRichTextBox1にして試したところ動作しているようです。
配列の扱い方を確認してみてはどうでしょうか？

Comments

[syameimaru]

ありがとうございます

RichTextBox4.Select(1, 4)
RichTextBox4.SelectionColor = Color.Red

で試してみたのですがやはり開始文字位置が0だと色は変わるがそのテキスト全ての文字色が変わって、
0以外だと色すら変わってくれませんでした。

[koguma98]

環境に依存するのかもしれませんね...
当方の環境で新しいプロジェクトを作成し、
ButtonとRichTextBoxを貼り付け、
Buttonのイベントハンドラに下記のコードを貼り付けたところ、
テキスト色が変わっております。

RichTextBox1.Text = "abcdefg"
RichTextBox1.Select(2, 2)
RichTextBox1.SelectionColor = Color.Red

上記手順を試してみてもらえませんでしょうか？
もし、この単純な手順でも色が変わらないようでしたら、環境に依存する問題かもしれません...

[syameimaru]

ありがとうございました

上記のように新しく作り、上記のコードを使用したのですが、「abcdefg」全ての文字色が変わってしまいました。
環境の問題ということもあるのですね...

Answer 2

RichTextBox1.Select(2, 5)
RichTextBox1.SelectionColor = Color.Red

• Select で色を変えたい文字の開始位置と長さを指定します。
• SelectionColor で色を指定します。

Comments

[syameimaru]

回答ありがとうございます

これを参考に

Dim s As String = mytxt(i).Text
Dim first As Integer = 0
Dim Last As Integer = 0
'<red>を最初に見つけた場所
first = s.IndexOf("<red>")
　　　　　 '<red>を最後に見つけた場所
Last = s.LastIndexOf("<red>")
Last = Last - first
If Not first = -1 Then
first = 0
Last = 0
first = s.IndexOf("<red>")
Last = s.LastIndexOf("<red>")
Last = Last -　first
'文字列を検索して、選択状態にする
'背景色を赤にする
mytxt(i).Select(first, Last)
mytxt(i).SelectionColor = Color.Red
End If

テキストボックスの中身
a<red>揖斐の間<red>a

こんな感じで<red>で囲まれた文字を変えられると思ったのですが
色が変わりませんでした。
何か違っているところがあったら教えてください。

[koguma98]

変数 i には何が入っているでしょうか？
RichTextBox1に対する操作を行う場合は i = 0 となるのではないかと思います。
# すべてのコードを見てないので、推測ですが...

直接関係ないですが、first は<red>分足す必要がありますね。
first = s.IndexOf("<red>") + 5

[syameimaru]

ありがとうございます。

RichTextBox1から45まであり、それをmytxtという形でlist化しています。
変数iは1から45が入るようになっています。

ｘ＝０以外の数値
mytxt(i).Select(0, ｘ)
mytxt(i).SelectionColor = Color.Red

この場合だと色は変わりましたが、指定した文字数だけ変えるということが出来ませんでした。

しかし
ｘ＝０以外の数値
mytxt(i).Select(1, ｘ)
mytxt(i).SelectionColor = Color.Red

開始の場所が０以外だと色すら変わりませんでした。

何度も申し訳ございません、間違いがございましたら教えてください。