Question

创建动态表格布局并在表格layout.my code

中添加一些控件

Protected Overrides Sub OnLoad(e As EventArgs)
MyBase.OnLoad(e)
  dynamicTable.ColumnCount = 5
 dynamicTable.RowCount = 1
For i = 1 To 5
    Dim button= New button()
    button.Text = i.ToString()
    dynamicTable.SetColumn(button, i)    
    dynamicTable.Controls.Add(button)
Next

接着结束子

现在我在表格布局中添加了5个按钮。现在我要点击按钮。我怎么知道，我点击了哪个按钮？

Answer 1

试试这个

  Dim dynamicTable As New TableLayoutPanel

        dynamicTable.ColumnCount = 5
        dynamicTable.RowCount = 1

        For i = 1 To 5

            Dim button = New Button()
            button.Name = "button" & i
            AddHandler button.Click, AddressOf Click1
            Button.Text = i.ToString()
            dynamicTable.SetColumn(button, i)
            dynamicTable.Controls.Add(button)

        Next

        Me.Controls.Add(dynamicTable)


  Private Sub Click1(ByVal sender As System.Object, ByVal e As System.EventArgs)

       If sender.Name = "button1" Then
            MsgBox("Hi")
       End If

  End Sub

动态TableLayout和控件

1 个答案: