将类似按钮的操作分组的更好方法？

说我有一个Button1的子程序将类似按钮的操作分组的更好方法？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim buttonText As String = Button1.Text 
     someOtherRoutine(buttonText) 
    End Sub

我有我的主要形式有很多这样的按钮。他们都做这样的事情。获取文本并传递给其他例程。如果我有20个按钮，那么我将有20个这样的子程序。有没有更好的（或标准的方法）做到这一点，而不创建许多子程序？

感谢

来源

2010-11-24 ghostdog74

您可以使用此一个子程序来处理按钮所有：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
    Handles Button1.Click, _ 
    Handles Button2.Click, _ 
    ... 
    Handles Button20.Click 

     Dim myButton As Button = sender 
     Dim buttonText As String = myButton.Text 

     ... 

End Sub

来源

2010-11-24 13:28:04 Oded

我以为你只需要把手一次。像处理Button1.Click，Button2.Click ...你应该指出我们发送来获取像sender.Text这样的按钮文本。 – 2010-11-24 13:33:40

您可以使用AddHandler添加相同的事件处理程序，每个按钮也可以使用逗号Handles条款中的分隔列表。

Sub EventHandler() Handles Obj.Ev_Event, Obj2.Ev_Event 
' Handle the event. 
MsgBox("EventHandler caught event.") 
EndSub

来源

2010-11-24 13:32:37

将类似按钮的操作分组的更好方法？

回答

相关问题