複数のボタンを、プロパティを引数に、ひとつのイベントに飛ばしたい

質問

VB2005　Expressを使っています。

デザインでButton1、Button2、　Button25までコピーペーストで
配置し、名称はそのままButton1からButton25とします。
TextもそのままButton1からButton25とします。

テキストボックスをひとつだけ作り名称は、TextBox1で
TextBox1のテキストは、空白とします。

各ボタンを押したら、そのボタンの名称、
または
そのボタンのTextでも構いません
Tagでもいいです。

（例＝"Button5"）を、
TextBox1に表示するプログラムを作る場合

Button1をクリックした時のPrivateSub（みたいなやつ）
　　TextBox1.Text＝"Button1"　
End Sub

を25回、書けばコードが長く
なってしまいますが、

できれば

　　For a=1 to 25
When Click Button(a) Then　（みたいな感じ）
TextBox1.Text="Button"& a
Next

こういう、[！感じ]　でコードを短くしたいのですが、
よい方法があれば教えてください。

回答No.1

KG_ · ベストアンサー

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
Dim btn As Button = DirectCast(sender, Button)

TextBox1.Text = btn.Text
End Sub

こんなんでも実現できますけどー。
エラー処理とか堅いことは抜きにしてー。

お礼

わかりやすく教えていただきありがとうございました。
おかげで
こういう場合の解決方法がわかりました。