VB2008EEのSelect Case

質問

VB2008EEのSelect Case

devilconanさんとのやりとりを締めてしまいましたが、
下記でdevilconanさんは動いているようですが、再度試してもこちらでは動きません。
しかし、別のPCのVB2008EEで試すことが出来たのですが、こちらでは動きました。

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged

Select Case sender.text
Case "RadioButton1"
aaa = "1"
bbb = ""

Case "RadioButton2"
aaa = ""
bbb = "2"

End Select
End Sub

Elseを追加して、ラジオボタン1と2を交互にチェックすると、それぞれ「sssss」とMsgBoxが出ます。
別のPCだと下の記述で、「case1」「case2」が表示されました。

Select Case sender.text

Case "RadioButton1"
aaa = "1"
bbb = ""
MsgBox("case1")

Case "RadioButton2"
aaa = ""
bbb = "2"
MsgBox("case2")

Case Else
MsgBox("sssss")

End Select

動いたPCも動かないPCもXPです。
同じファイルを開いているのですが、この違いは何でしょうか？

回答No.2

nag0720 · ベストアンサー

＞チェックした各ラジオボタンのテキストが表示されました。

Select Case sender.text
Case "RadioButton1"
aaa = "1"

これは、sender.textの内容が"RadioButton1"のとき「aaa = "1"」を実行するとういう意味ですよ。

当然、チェックしたラジオボタンのテキストが"RadioButton1"になっていなければ実行されません。

ラジオボタンのテキストは、"RadioButton1"や"RadioButton2"なのですか？

もしかして、
Select Case sender.text
ではなくて、
Select Case sender.name
の間違いではないですか？

お礼

sender.textではなく、sender.nameだったのですね。
これでできました。
ありがとうございました。

回答No.1

nag0720

何が原因かは分かりませんが、
sender.textの中身が違っているのでしょう。

MsgBox("sssss")
ではなくて、
MsgBox(sender.text)
のようにして、sender.textに何が入っているのかを調べてみては。

補足

ありがとうございます。
MsgBox(sender.text)にして試してみました。

チェックした各ラジオボタンのテキストが表示されました。