对类似按钮的操作进行分组的更好方法?

您可以使用这一个子例程来处理 全部的 钮扣:

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

你可以使用 AddHandler 要为每个按钮添加相同的事件处理程序,或者可以在 Handles 条款。

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