VB2008、文字色について教えて下さい
VB2008を使用しています。
現在、Form内複数あるTextBox内の文字をいくつか選択し、RichTextBox内に"・"で区切って代入するプログラムを作成しています。
その際、RichTextBox内に代入されたTextBoxの文字色を赤色に変える（元は黒色です）コードを下記のように作成しました。
Dim strList() As String
strList = RichTextBox1.Text.Split("・"c)
For Each strMoji As String In strList
Select Case strMoji
Case TextBox1.Text
TextBox1.ForeColor = Color.Red
Case TextBox2.Text
TextBox2.ForeColor = Color.Red
End Select
Next
上記コードは問題ないのですが、RichTextBox内に一度代入された複数のTextBoxの文字から、いくつかを選択して削除した際、選択したTextBoxの文字を元の黒色に戻す方法がわかりません。単純に全てのTextBoxの文字色を黒色に戻すコードを書いてしまうと、同様の操作を他のRichTextBoxに適用した場合、そちらに代入された文字色も黒色に戻ってしまいます。上記のコードを応用すれば出来そうなのですが、良い方法はないでしょうか？上記コード3行目の「In」を「Out」や「Cut」に変更しても構文エラーになってしまいました。
お礼