Visual Basic 中动态表布局面板的事件处理程序

Question

>我正在为学校制作一个风险类型的游戏，该游戏在Visual Basic的表格布局面板中动态创建4x4按钮网格。 我已经成功地创建了面板和按钮，其名称对应于按钮的行和列。 还有两个并行数组 - 一个用于按钮所有者，另一个用于按钮编号 - 对应于按钮的所有者和按钮中"军队"的数量。 我的问题是，当用户单击某个按钮时，我需要引用按钮名称/值以了解按钮有多少"军队"来控制玩家回合的"攻击"部分。

以下代码创建表格布局面板和带有名称的按钮。

'Create table Dynamically
    Dim ColCount As Integer = 4
    Dim RowCount As Integer = 4
    Dim f As New System.Drawing.Font("Arial", 15)
    riskTable.AutoScroll = True
    riskTable.Dock = DockStyle.Fill
    riskTable.ColumnCount = ColCount
    riskTable.RowCount = RowCount
    For rowNo As Integer = 0 To riskTable.RowCount - 1
        For columnNo As Integer = 0 To riskTable.ColumnCount - 1
            Dim buttonname As String
            buttonname = "B" & rowNo & columnNo
            Dim button As Control = New Button
            button.Size = New Size(179, 100)
            button.Name = buttonname
            button.Text = "1"
            button.ForeColor = Color.White
            button.Font = f
            AddHandler button.Click, AddressOf buttonname_Click
            riskTable.Controls.Add(button, columnNo, rowNo)
        Next
    Next
    Me.Controls.Add(riskTable)

这是我创建的动态事件处理程序。 我尝试使用"Me.Click"来获取按钮的名称，但它只返回表单的名称。 我需要在此处包含引用当前单击按钮名称的代码，然后依次引用框所有者和框编号数组。

Private Sub buttonname_Click(sender As Object, e As EventArgs) Handles Me.Click
    MessageBox.Show(Me.Name)
End Sub

任何帮助将不胜感激！ 我认为一旦我开始工作，游戏的其余部分将很容易弄清楚。

谢谢！

Answer 1

将名称放在"按钮"中。标记"代替/也：

button.Tag = buttonname

然后很容易获得名称：

Private Sub buttonname_Click(sender As Object, e As EventArgs) Handles Me.Click
     Dim result As String = CType(CType(sender, System.Windows.Forms.Button).Tag, String)
End Sub

(检查System.Windows.Forms.Button，可能需要一些调整以匹配表格内的按钮。风险表.控件.按钮 ？(