学习 VB 并需要填充一个变量 按钮 .text，这取决于按下的按钮

Question

我的目标是让用户能够按下任何按钮和按钮的 .text 以传递到文本框中。 以下是我想要实现的非常简化的版本......我知道我可以将每个按钮放在自己的子中，但是这样做将创建数百行代码，而如果我想做的有效，它只会是几行......

https://i.stack.imgur.com/tuF5n.png

Sub Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
TextBox1.Text = (TextBox1.Text + ??? )
End Sub

那么我会用什么替换???来表示用户按下的按钮的 .text？

（这是在Visual Studios 2013中使用VB）

提前谢谢你^.^

Answer 1

sender 参数是事件的发送方。在执行任何有用的操作之前，您可能需要强制转换它：

Dim button As Button = DirectCast(sender, Button)

然后你可以使用它：

TextBox1.Text &= button.Text