如何为表单上的每个按钮运行相同的子项？

Question

表格上有81个按钮（9x9网格），每个按钮名为“X_Y”（例如“5_2”表示X = 5，Y = 2）。我希望每个按钮运行相同的子。同一表格上没有其他按钮。

我可以这样做：Private Sub TileClicked(sender As Object, e As EventArgs) Handles 0_0.Click, 0_1.Click, 0_2.Click,等等（最多8_8.Click），但如果有更简单/更简单的方法，那么我宁愿这样做。

要么处理任何按钮点击的某种方式，要么像For循环那样通过所有81个按钮。

Answer 1

Dim btn as Button = Nothing
For Each ctrl As Control in myForm.Controls
    If TypeOf ctrl Is Button Then
        btn = DirectCast(ctrl, Button)
        AddHandler btn.Click, AddressOf Me.Button_Click
    End If
Next

Refer here.