选择项目动态添加到菜单项列表

Question

我正在使用以下循环在程序加载时动态地将项目添加到菜单项目条

For Each specs In My.Computer.FileSystem.GetFiles(My.Settings.SpecsLoc, FileIO.SearchOption.SearchTopLevelOnly, "*.pdf*")  
        SpecsToolStripMenuItem.DropDownItems.Add(IO.Path.GetFileName(specs))
    Next

这将在菜单项中平均填充20个项目。我一直在搜索如何从列表中打开文件。

由于

Answer 1

构造函数也可以使用事件处理程序，因此您可以像这样添加它：

SpecsToolStripMenuItem.DropDownItems.Add(IO.Path.GetFileName(specs), _
                                         Nothing, _
                                         Sub()
                                           Process.Start(specs)
                                         End Sub)