ラジオボタンのチェック

質問

Visual Basic 2010 Express
windows7 Pro

dmyが何であるかでラジオボタンのチェックを入れたいのですが、
下記の場合はそれぞれの値でチェックが入りません。

dmy = My.Computer.FileSystem.ReadAllText("dmy.txt")

Select Case dmy
Case "aaa"
RadioButton4.Checked = True
Case "bbb"
RadioButton6.Checked = True
Case "ccc"
RadioButton7.Checked = True
End Select

下記の場合、CheckBox7にチェックが入ると、 RadioButton1はオフになったので、
Trueにするだけで出来ると思ったのですが、変わりませんでした。

If CheckBox7.Checked Then
RadioButton1.Checked = False
End If

回答No.1

n-jun · ベストアンサー

msgbox(dmy = "aaa")

でTrueが返るかどうかチェックはされているのでしょうか？

http://dobon.net/vb/dotnet/string/stringindexof.html

Select Case True
Case dmy.indexof("aaa") > -1
RadioButton4.Checked = True
Case dmy.indexof("bbb") > -1
RadioButton6.Checked = True
Case dmy.indexof("ccc") > -1
RadioButton7.Checked = True
End Select

ではどうでしょうね？
完全一致でなくても大丈夫だと思いますけど？

補足

ありがとうございます。
msgbox(dmy = "aaa")だとFalseが返ってきます。
しかし、msgbox(dmy)で、aaaと表示されます。

テキストから読み込まず、試しにSelect Caseの前で、
dmy = "aaa"にするとラジオボタンはチェックされます。

Case dmy.indexof("aaa") > -1でもダメでした。

回答No.3

n-jun

Ｎｏ１です。

＞msgbox(dmy = "aaa")だとFalseが返ってきます。
＞しかし、msgbox(dmy)で、aaaと表示されます。
余計な文字があるんでしょうね。

＞Case dmy.indexof("aaa") > -1でもダメでした。
Select case trueも変更しているんですよね？
あとは
Case dmy.indexof("aaa") >= 0
こっちの方が良いのかな？

お礼

Select case true忘れてました。
Case dmy.indexof("aaa") > -1で出来ました。
ありがとうございます。

回答No.2

Picosoft

dmy.txtの最後に余計な改行が入っていた、というオチなような気もしますが……