Question

我正在制作一个简单的计算器。我厌倦了在每个按钮中分配事件处理程序，这是低效的。

我只想要一个事件处理程序在按下时获取按钮内的文本。

怎么做？

  Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles co.Click
    numPressed = num1.Text
End Sub

Answer 1

在您的点击事件中：

Dim button as Button = sender
Dim theTextYouWant as String = button.Text

Answer 2

只需添加您想要处理的所有事件，并检测按下哪个按钮：

Private Sub num1_Click(sender As Object, ByVal e As EventArgs) _
Handles co.Click, co2.Click, co3.Click 'etc
    Dim btn As Button = CType(sender, Button)
    numPressed = btn.Text
End Sub

Answer 3

您可以在运行时期间有效地添加处理button's click event，如下所示

我假设您buttons位于名为panel的{{1}}内。

PnlBtns

仅使用一个事件处理程序按下时，在按钮内获取文本

3 个答案: