如何为表单上的所有按钮创建一个通用的onclick事件处理程序？

Question

我的表单上有10个按钮，我想知道是否有人可以帮我为所有人编写一个onClick处理程序。

Answer 1

• 在按钮的“属性”窗口中，切换到事件视图并输入未绑定到特定按钮的Click处理程序的名称（为了清楚地表明它是一个不是特定于单个按钮的事件处理程序控制）。
• 按Enter键创建事件处理程序并实现它。
• 依次选择其他按钮，然后在“属性”窗口的组合框中选择之前创建的事件处理程序。

在事件处理程序中，您可以将sender参数强制转换为Button，并且可以通过该参数访问单击的按钮。

Dim clickedBtn = TryCast(sender, Button)
If clickedBtn IsNot Nothing Then
    ' Do something with the button
End If

当然，差异不应该太大 - 对于在后台调用常用方法的按钮，IF / SELECT CASE的长列表不适合不同的事件处理程序。