VB.NET 创建动态 StripMenu

Question

我正在尝试创建一个动态条形菜单，基本上程序会读取一个包含菜单结构的 XML 文件，我已经成功完成了。

但是当我单击菜单“文件”作为示例时，没有任何反应，是的，我知道我必须创建一个在单击对象时将调用的函数，所以我按照网站的说明进行了操作，该网站解释了如何在 C# 中执行此操作，但是在 VB.NET 中不起作用，但在 C# 中可以。

这是我在 C# 中看到的示例：

private void CreateMenuWithEventAndKey()
{
    MenuStrip strip = new MenuStrip();
    ToolStripMenuItem fileItem = new ToolStripMenuItem("&File");

    // Create our first item with an image and wired to a click event

    // Also sets Alt + 7 as the shortcut
    ToolStripMenuItem itemWithEventAndKey = new ToolStripMenuItem(
        "Delete Event", Image.FromFile("c:\\Delete.png"), deleteItem_Click, 
        (Keys)Shortcut.Alt7);
    fileItem.DropDownItems.Add(itemWithEventAndKey);
    strip.Items.Add(fileItem);
    this.Controls.Add(strip);
}

// Event that is called from menu item.
private void deleteItem_Click(object sender, EventArgs e)
{
    MessageBox.Show("Delete Event");
}

这是我在 VB.NET 中所做的。

 Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
    Dim menu As New MenuStrip()

    Panel1.Visible = False
    Dim fileitem = New ToolStripMenuItem("&file")
    fileitem.DropDownItems.Add("New", Image.FromFile("C:\\add.png"), NewFile_click)
    menu.Items.Add(fileitem)
    Me.Controls.Add(menu)
End Sub

Private Sub NewFile_click(sender As Object, e As EventArgs)
    MessageBox.Show("New")
End Sub

它没有构建，因为它说对象“sender”和“e”没有在 NewFile_Click 的调用中传递，我不知道该怎么办。

Answer 1

在 VB.Net 中，使用 AddressOf:

fileitem.DropDownItems.Add("New", _
                           Image.FromFile("C:\\add.png"), _
                           AddressOf NewFile_click)