条件判断について教えて下さい。

質問

VB2008を使用している初心者です。
現在、RichTextBoxとCheckBoxとそれに対応したTextBoxを準備し、CheckBoxがTrueのTextBox.TextをRichTextBoxに代入するプログラムを作成しています。RichTextBoxにはCheckBoxをTrueにした分だけ複数のTextBox.Textを代入させています。ここまでのプログラムは下記コードで問題なく作動しています。

Button1を押す。
RichTextBox1.Clear()

If Me.CheckBox1.Checked = True Then
RichTextBox1.Text = TextBox1.Text
End If

If Me.CheckBox2.Checked = True Then
If RichTextBox1.Text <> "" Then
RichTextBox1.Text = RichTextBox1.Text & "・"
End If
RichTextBox1.Text = RichTextBox1.Text & TextBox2.Text
End If
・
・
・
If Me.CheckBox20.Checked = True Then
If RichTextBox1.Text <> "" Then
RichTextBox1.Text = RichTextBox1.Text & "・"
End If
RichTextBox1.Text = RichTextBox1.Text & TextBox20.Text
End If

ここで問題なのですが、RichTextBox1への代入完了後、FalseにしたCheckBoxを再度True（代入時に選択したもののみ）にするコードをButton2に作成したいのですが上手くいきません。例えば下記のコードですと、RichTextBoxに1つだけTextBoxが入っている場合しかCheckBoxのTrueが戻りません。

If Me.CheckBox1.Checked = False Then
If RichTextBox1.Text = TextBox1.Text Then
Me.CheckBox1.Checked = True
End If
End If
・
・
・
If Me.CheckBox20.Checked = False Then
If RichTextBox1.Text = TextBox20.Text Then
Me.CheckBox2.Checked = True
End If
End If

これはIf RichTextBox1.Text = TextBox1.Text Thenにしてしまっているためだと思いますが、これをどう修正したら良いかわかりません。もしお時間がある方みえましたらご教授お願いいたします。

回答No.1

kazuhisa01 · ベストアンサー

リッチテキストの中身は"・"で区切っているのに比較は格納したデータをそのまま使っていますよね？

例えば

Test1
Test2
Test3

とあってTest1とTest3をチェックしてボタン1を押すとリッチテキストの中身は「Test1・Test3」となっていますよね。

それをTest1=Test1・Test3と比較しても同じにはなりません。

やるのであればSplitを使用してリッチテキスト内の文字列を配列化してFor文で回す。

----------------------------------------------------------------
Dim strList() As String

strList = RichTextBox1.Text.Split("・"c)

For each strMoji As String In strList
Select Case strMoji
Case TextBox1.Text
CheckBox1.Checked = True
Case TextBox2.Text
CheckBox2.Checked = True
…
Case TextBox20.Text
CheckBox20.Checked = True
End Select
Next

お礼

ご回答頂きありがとうございます。こんな方法があったのですね。教えて頂いたコードで目的を達成することが出来ました。今、Splitについて本で調べましたが、こんな使い方があるとは思いもしませんでした。本当にありがとうございました。