senderに含まれているハンドルしてきたコントロールを知る方法

VB2008 Vistaです。
似たような処理が3つあるので、subに3つのボタンをハンドルしました。

ただ、その一部をハンドルしてきたボタンによって処理を変えないといけないのですが、どのボタンがハンドルしてきたのかを知るすべがわからず困っています。

senderの中にボタンの名前（textプロパティの内容）が見つかったのですが、取り出し方がわかりません。（もしくは根本的に間違っているのかも知れませんが）

どのようにすればよいでしょうか。

No.1 ベストアンサー 回答者： yaguma 回答日時： 2009/02/15 17:52

' Buttonオブジェクト、Button1とButton2をハンドルしたとき

If sender Is Button1 Then
　　TextBox1.Text = sender.Text
ElseIf sender Is Button2 Then
　　TextBox1.Text = sender.text
End If

senderは、イベント発生元のオブジェクトと同一に考えていいようなので、このように判定するのはどうでしょうか。
ちなみに、If文の中でsenderからTextプロパティを取得しているところですが、Option StrictをOFFにしている場合は、

TextBox1.Text = CType(sender, System.Windows.Forms.Button).Text

このように明示的にキャストするとうまくいきます。

この回答へのお礼

ありがとうございました。
「Is」を使うとわかるのですね。
試してみましたがうまくいきました。

お礼日時：2009/02/16 13:15

No.2 回答者： AS400VBNET 回答日時： 2009/02/16 12:58

こんな感じでいかがでしょうか？

Private Sub Button_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click, Button2.Click
'判別方法
Select Case True
Case sender.Equals(Button1)
Case sender.Equals(Button2)
End Select
'内容
Debug.Print(sender.text)
End Sub

この回答へのお礼

ありがとうございます。
イコールも使えるのですね。
勉強になりました。

お礼日時：2009/02/16 13:16