Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/22.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Visual studio 2013 visual basic多个toolstripmenuitems可在单击时执行相同的操作_Visual Studio 2013_Onclick_Menuitem_Toolstripmenu - Fatal编程技术网

Visual studio 2013 visual basic多个toolstripmenuitems可在单击时执行相同的操作

Visual studio 2013 visual basic多个toolstripmenuitems可在单击时执行相同的操作,visual-studio-2013,onclick,menuitem,toolstripmenu,Visual Studio 2013,Onclick,Menuitem,Toolstripmenu,我是新来的。所以,若措辞不当,请提前道歉。 我正在开发一个应用程序VS2013,VisualBasic,它使用MenuStrip中的多个菜单项。单击项目时,调用相同的函数-创建选项卡并加载相应的表单。 i、 e 。。。。 我想知道是否有一种方法可以为所有菜单项创建一个全局默认的点击事件,默认情况下,这些菜单项将完成相同的任务。我将每个菜单项的所有相关信息存储在一个表中,希望避免为每个菜单项创建单击 提前感谢。对于ToolStripMenuItems的click事件,您可以使用相同的处理程序。 只

我是新来的。所以,若措辞不当,请提前道歉。 我正在开发一个应用程序VS2013,VisualBasic,它使用MenuStrip中的多个菜单项。单击项目时,调用相同的函数-创建选项卡并加载相应的表单。 i、 e

。。。。 我想知道是否有一种方法可以为所有菜单项创建一个全局默认的点击事件,默认情况下,这些菜单项将完成相同的任务。我将每个菜单项的所有相关信息存储在一个表中,希望避免为每个菜单项创建单击


提前感谢。

对于ToolStripMenuItems的click事件,您可以使用相同的处理程序。 只需在第一个句柄XXXMNU0039之后添加。单击要为另一个ToolStripMenuItem处理的事件,依此类推

另外,问题是如何区分调用同一事件处理程序的各种ToolStripMenuItem。但在事件参数中有一个发送方对象,它表示调用该事件的当前ToolStripMenuItem

只需访问ToolStripMenuItem并读取其名称,即可将正确的参数传递给XXXTablPages方法


这无疑是朝着正确方向迈出的一步。谢谢。我试试看。理想情况下,我希望避免添加句柄。。。对于每个新项。窗体设计器、属性窗口、事件属性网格和闪电图标在任何情况下,如果希望代码处理事件,应将其告知编译器,否则没有人会完美地调用youWorks。这正是我所希望的。非常感谢,我很乐意帮忙。作为一个新手,我让你读了这篇文章
Private Sub XXXMNU0039_Click(sender As Object, e As EventArgs) Handles XXXMNU0039.Click
    Dim f1 As New frm_B05_01_SalesQuotes
    Dim imgnm As String = "XXXMNU0039"
    Call XXXTabPages("Sales Quotes", f1, imgnm)
End Sub

Private Sub XXXMNU0040_Click(sender As Object, e As EventArgs) Handles XXXMNU0040.Click
    Dim f1 As New frm_B05_03_SalesQuotesReports
    Dim imgnm As String = "XXXMNU_Reports"
    Call XXXTabPages("Sales Quotes Reports", f1, imgnm)
End Sub
Private Sub menuItemHandler_Click(sender As Object, e As EventArgs) _
                  Handles XXXMNU0039.Click, XXXMNU0040.Click
    Dim f1 As New frm_B05_01_SalesQuotes
    Dim itm = DirectCast(sender, ToolStripMenuItem)
    Dim imgnm As String = item.Name
    Call XXXTabPages("Sales Quotes", f1, imgnm)
End Sub