- 610 名前：デフォルトの名無しさん [2005/04/04(月) 10:33:49 ]
-
If button Is TBB0 Then
'TBB0のときに必要な処理
ElseIf button Is TBB5 Then
'TBB5のときに必要な処理
End If
↑こんなコード（button、TBB0、TBB5はいずれもButton型）
をSelect Caseで整理しようとしてるんだが、Select Caseでは
Button型は使えないみたいで、CObj()を通してもだめで、
しかたなく
Select Case button.Text
Case TBB0.Text
'TBB0のときに必要な処理
Case TBB5.Text
'TBB5のときに必要な処理
End Select
こんなごまかしで動かしていますが、もっとうまい方法はないものでしょうか？
（TBB0.Text=TBB5.Textになっちゃうとおかしくなりますし）
