2

我正在尝试为餐厅制作一个程序，允许他们在程序中添加和删除桌子。我的想法是有一个名为“添加表”的按钮，它将生成一个名称为表号的按钮，并且新创建的按钮将有一个函数或子函数（我对此还不太确定，工作正在进行中）

问题是我已经找到了如何动态添加按钮，但我对 AdressOf 部分感到困惑。

我是否需要使用 adressOf 部分来链接所需的方法或以其他方式完成的方法？

Public Class Form_Create_Button

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    CreateButton(TextBox1.Text, TextBox2.Text)
End Sub

Private Sub CreateButton(TableNr As String, PersonNr As String)
    Dim Button As New Button With {.Left = 10, .Top = 10, .Text = TableNr, .Name = "Button" & TableNr}
    AddHandler Button.Click, AddressOf '...
    Main_Form.GroupBox1.Controls.Add(Button)
End Sub

结束类

4

2 回答 2

4

您可以使用AddressOfoperator以编程方式添加事件处理程序。因此，您可以为所有按钮使用一个处理程序。您可以使用Sender参数来识别按钮：

Private Sub CreateButton(TableNr As String, PersonNr As String)
    Dim Button As New Button With {.Left = 10, .Top = 10, .Text = TableNr, .Name = "Button" & TableNr}
    AddHandler Button.Click, AddressOf TableClicked
    Main_Form.GroupBox1.Controls.Add(Button)
End Sub

Private Sub TableClicked(sender As Object, e As EventArgs )
    Dim button = DirectCast(sender, Button)
    Dim tableNumber As String = button.Name.Substring(6)
    ' ...
End Sub
于 2013-09-23T20:44:47.173 回答
0

您担心使用与 相同的方法AddHandler，然后当调用该方法时，您需要知道单击了哪个按钮。这就是sender事件处理程序中的论点：

Private Sub CreateButton(TableNr As String, PersonNr As String)
    Dim Button As New Button With {.Left = 10, .Top = 10, .Text = TableNr, .Name = "Button" & TableNr}
    AddHandler Button.Click, AddressOf Table_Click
    Main_Form.GroupBox1.Controls.Add(Button)
End Sub

Private Sub Table_Click(sender As Object, e As EventArgs)
    Dim button As Button = TryCast(sender, Button)
    '...
End Sub

这里唯一缺少的是 PersonNr 和 TableNr 数据，但此时您应该很容易将它们附加到按钮本身。如果您需要推送，一种选择是从带有这些附加字段的按钮继承您自己的控件。

于 2013-09-23T20:51:35.067 回答