1.Button1.PerformClick()    
2.button1_click（sender，e）     
3.button1_click(nothing,nothing)     
4.button1_click(sender,nothing) 

VB.net MenuStrip控件通过数据库生成多级动态菜单并添加单击事件
个人小白，一个多月前想通过 MenuStrip控件调用数据库数据生成多级联动下拉菜单，结果网上的资料都只是部分代码可用。经过一个月的东拼西凑终于能实现功能了。。。欢迎各位大神指正不足之处
思路很重要
MenuStrip控件制作多级联动下拉菜单需要分一级目录、二级目录。。。以二级目录为例。一级目录的一行值包括一组二级目录。也就是说每读取完一行一级目录，需要将相关联的二级目录全部提取出来。一级目录为大循环，二级目录为小循环。
数据库调用连接
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim G As String = Application.StartupPath & "\XXXX .xlsx" ’数据库路径+数据源，我用的Excel表格做的
    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" + G + "';Extended Properties='Excel 12.0;HDR=Yes;IMEX=2;'")
    Dim cmd As OleDbCommand = New OleDbCommand
    cmd.CommandText = "Select First From [Sheet1$]"
    ReadData(conn, cmd)
End Sub

数据调用至MenuStrip控件并注册单击事件
    Private Sub ReadData(ByVal conn As OleDbConnection, ByVal cmd As OleDbCommand)
    cmd.Connection = conn
    conn.Open()
    Dim rdr As OleDbDataReader = cmd.ExecuteReader
    Dim One As New ToolStripMenuItem
    One.Name = "▼"
    One.Text = "▼"
    MenuStrip1.Items.Add(One)
    One.Visible = True
    Do While rdr.Read = True
        Dim First As New ToolStripMenuItem
        First.Name = Trim(rdr("First").ToString)
        If First.Name = "" Then
            Exit Do
        End If
        First.Text = Trim(rdr("First").ToString)
        One.DropDownItems.Add(First)
        One.DropDownItems.Add(First)
        Dim cmd2 As OleDbCommand = New OleDbCommand
        cmd2.Connection = conn
        cmd2.CommandText = "Select Second From [Sheet2$] where Transition='" + First.Text + "'"
        Dim rdr2 As OleDbDataReader = cmd2.ExecuteReader
        Do While rdr2.Read = True
            Dim Second As New ToolStripMenuItem
            Second.Name = Trim(rdr2("Second").ToString)
            If Second.Name = "" Then
                Exit Do
            End If
            Second.Text = Trim(rdr2("Second").ToString)
            First.DropDownItems.Add(Second)
            First.DropDownItems.Add(Second)
            AddHandler Second.Click, AddressOf Me.SecondClick ‘这个至关重要，注册单击事件，没这个只能看不能用
        Loop
    Loop
    conn.Close()
End Sub

Private Sub SecondClick(sender As Object, e As EventArgs)
    ToolStripTextBox1.Text = sender.Name’单击时发生的事件
End Sub

不会添加附件凑合着看吧
一级目录

二级目录

学习java事件前，回顾了下vb6和vb.net的事件机制，总结在这里，供对比用。
    事件是面对对象中对象间通信的方法。事件发生者（又叫事件源）发生一个事件时，通过发送一条消息，给事件接受者（事件处理者），事件接受者可以做出响应的处理。比如在某登录界面中，单击一个按钮，系统会验证用户的用户名和密码是否正确。用户单击按钮后，按钮（事件源）发出了单击事件，产生了自己被单击的消息给窗体，窗体（事件接受者）在自身代码窗口中进行响应的处理。
 
我们分别看下在vb和vb.net中是怎么实现事件机制的。
    在vb6中，使用Event关键字定义事件，raiseEvent发出事件消息，在接受者的类中使用WithEvent表明自己是某个类的事件的接受者，我们看这样两段代码：
    首先建立一个窗体，是一个登录窗体，输入用户名和密码后，点击登陆按钮可以登陆，代码（vb6）如下，使用了WithEvent来接收验证类（verifyClass）的消息：

Option Explicit

'本句代码表明该窗体能接受验证类的事件消息
Private WithEvents vfClass As VerifyClass

Private Sub cmdLogin_Click()
    '定义用户名和密码
    Dim userName As String
    Dim password As String
    '定义返回结果
    Dim Result As Boolean
    Set vfClass = New VerifyClass
    
    userName = txtUserName.Text
    password = txtPassword.Text
    
    '将用户名和密码传到验证类进行验证
    Result = vfClass.Verify(userName, password)
    
End Sub

Private Sub Form_Load()

End Sub

'引发验证失败事件后，在此处可以进行相应处理
Private Sub vfClass_loginFail(ByVal userName As String)
    MsgBox (userName + "登录失败")
End Sub
'验证成功事件
Private Sub vfClass_LoginSuccess(ByVal userName As String)
     MsgBox (userName + "登录成功")
End Sub
接下来添加一个类模块，是登陆窗体中用到的验证类（verifyClass）的代码，里面定义（Event）了并引发（raiseEvent）了事件：


Option Explicit

'定义验证成功和失败的事件
Public Event LoginSuccess(ByVal userName As String)
Public Event loginFail(ByVal userName As String)

'验证方法：对用户名和密码进行验证
Public Function Verify(ByVal userName As String, ByVal password As String) As Boolean
    Dim blnResult As Boolean
    
    If userName = "123" And password = "123" Then
        '如果正确，发出登陆成功的消息
        RaiseEvent LoginSuccess(userName)
        blnResult = True
    Else
        '错误则发出登陆失败的消息
        RaiseEvent loginFail(userName)
         blnResult = False
    End If
    Verify = blnResult
    
End Function




在vb.net中事件的实现机制同vb基本相同，并且有了优化，通过Handles关键字，使事件实现的机制更灵活，handles可以使多个事件到同一个事件处理程序：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button3.Click
        System.Windows.Forms.MessageBox.Show("我被触发了")
End Sub


也可以通过AddHandler动态的绑定事件处理程序,即可以根据当时的条件选择将要绑定的事件处理程序，看下面这个例子。
首先定义一个person类，有走路这个事件，在走路方法中触发走路事件

Public Class Person

    Public Event walked(ByVal Distance As Integer)

    Public Sub walk(ByVal Distance As Integer)
        RaiseEvent walked(Distance)
    End Sub

End Class



接下来新建一个窗体类，窗体上有一个文本框和一个按钮，代码如下


Public Class Form1
    '本句代码表明该窗体能接受验证类的事件消息
    Public WithEvents objPerson As Person


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        objPerson = New Person()
        '满足条件下才执行绑定操作
        If (TextBox1.Text = "1") Then
            '满足条件，执行动态绑定,将事件绑定到某方法，该方法转变成事件处理程序
            AddHandler objPerson.walked, AddressOf Person_walk
            objPerson.walk(50)
        Else
            System.Windows.Forms.MessageBox.Show("您输入的文本不是1")
        End If

    End Sub
    '触发的事件将绑定到本事件处理程序
    Public Sub Person_walk(ByVal Distance As Integer)
        System.Windows.Forms.MessageBox.Show("a person walked" + Distance.ToString() + " kilometer!")
    End Sub

End Class

这就是vb和vb.net的事件处理机制，等学了java事件机制后将进行对比。

以前 VB 6.0 我要调一堆 API 感觉好过瘾 呵呵 现在找不到这种感觉了 哈！记得vb 6 的 时候生气用Win32写了个Clock  掉了上百个 API 连VB 6 的窗体都没用， 那个叫过瘾 一切都在控制中的感觉真好。看来我还是适合用 MASM Win32 的。哈哈 废话 到此结束。动态添加菜单在 .net 中很容易的。
首先建立一个XML 文件用来存储 菜单信息 (本例使用 DataHelper.xml)
 
<?xml version="1.0" encoding="utf-8" ?> 
<DataHelper>
  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>1</MenuID>
    <ParentID>0</ParentID>  
    <Text>基本数据库(&amp;B)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible>True</Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys></ShortcutKeys>
  </Menu>
  <Menu>
    <IsSeparator>1</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
  </Menu>
  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
    <Text>计生系统(&amp;J)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible></Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys>131140</ShortcutKeys>
  </Menu>
  <Menu>
    <IsSeparator>1</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
  </Menu>
  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>3</MenuID>
    <ParentID>0</ParentID>
    <Text>党员系统(&amp;D)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible></Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys></ShortcutKeys>
  </Menu>
  <Menu>
    <IsSeparator>1</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
  </Menu>
  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>4</MenuID>
    <ParentID>0</ParentID>
    <Text>民政系统(&amp;M)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible></Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys></ShortcutKeys>
  </Menu>
</DataHelper>
好了第一步开始，读取XML文件 我们使用 DataSet 来干这活，不过我是在 DataHerlper.Common 工程来干这事的。哇 分层阿！
这个是个结构 我用的 看取那个Table
 

Imports System.Drawing
Imports System.Windows.Forms

Namespace DataHelperNamespace DataHelper.Common

    Public Enum DataHelperConfigTableNameEnum DataHelperConfigTableName
        DropDownMenu = 0
        Plugins = 1
    End Enum

End Namespace

Imports System.Data
Imports DataHelper.Common.Caching
Imports System.Windows.Forms

Namespace DataHelperNamespace DataHelper.Common
    Public Class SharedClassClass SharedClass

        Public Shared Function GetDataHelperConfig()Function GetDataHelperConfig(Optional ByVal TableName As DataHelperConfigTableName = DataHelperConfigTableName.DropDownMenu) As DataTable
            Dim strDataHelperConfigFile As String
            Dim ds As New DataSet
            Dim dt As New DataTable

            strDataHelperConfigFile = Application.StartupPath & "ConfigDataHelper.xml" 'Application.StartupPath

            ds = DataCache.GetCache("DataHelperConfig")
            If ds Is Nothing Then
                Dim xmlReader As XmlTextReader = New XmlTextReader(strDataHelperConfigFile)
                ds = New DataSet
                ds.ReadXml(xmlReader)
                dt = ds.Tables(TableName)
                DataCache.Insert("DataHelperConfig", ds, DataCache.CreateFileCacheDependency(strDataHelperConfigFile))
            Else
                dt = ds.Tables(TableName)
            End If
            Return dt
        End Function

    End Class
End Namespace

我们得到菜单信息了接下来就要动态添加菜单了 这又是一个工程（DataHelper.UserInterface） 分层吗
'**********************************************************************************************************
' Programmer By Shadow (QQ:33512603)
' User Interface MainMenu  Class
' The MainMenu class create menu for localappliction 
' Corpright(C) 2006 Jiang Jian
'**********************************************************************************************************
' 程序设计：江建
'**********************************************************************************************************

Imports System.IO
Imports System.Windows.Forms
Imports DataHelper.Common
Imports DataHelper.PluginsInterface

Namespace DataHelperNamespace DataHelper.UserInterface
    Public Class MainMenuClass MainMenu
        Private MenuClick As New MainMenuClick

Public Methods#Region "Public Methods"
        '**********************************************************************************************************
        '功  能：动态创建菜单
        '参  数：MenuScripItem - 一个MenuStrip对象 
        '返回值：NULL
        '**********************************************************************************************************
        Public Sub CreateMenu()Sub CreateMenu(ByVal MenuScripItem As MenuStrip)
            Dim IsTopMenu As Boolean
            Dim IsSeparator As Boolean = False
            Dim TopMenuItemIndex As Integer = 0
            Dim SubMenuItemIndex As Integer = -1
            Dim dt As DataTable = SharedClass.GetDataHelperConfig(DataHelperConfigTableName.DropDownMenu)
            Dim dr As DataRow
            For Each dr In dt.Rows
                If IsNumeric(dr("IsSeparator")) Then
                    IsSeparator = dr("IsSeparator")
                End If

                Dim MenuItem As ToolStripMenuItem = New ToolStripMenuItem()         '创建菜单项 
                AddHandler MenuItem.Click, New EventHandler(AddressOf MenuClick.MainMenu_Click)
                MenuItem.Text = dr("Text").ToString()
                MenuItem.ToolTipText = dr("ToolTipText").ToString
                MenuItem.Name = dr("Name").ToString

                If File.Exists(dr("Image").ToString) Then
                    MenuItem.Image = Image.FromFile(dr("Image"))
                End If

                If dr("Visible").ToString.Length > 0 Then
                    MenuItem.Visible = Boolean.Parse(dr("Visible"))
                End If

                If IsNumeric(dr("ShortcutKeys")) Then
                    MenuItem.ShortcutKeys = Integer.Parse(dr("ShortcutKeys"))
                End If
                MenuItem.ShowShortcutKeys = True


                If IsNumeric(dr("IsTopMenu")) Then
                    IsTopMenu = CBool(dr("IsTopMenu"))
                Else
                    IsTopMenu = False
                End If

                If IsNumeric(dr("TopMenuItemIndex")) Then
                    TopMenuItemIndex = dr("TopMenuItemIndex")
                End If

                If IsNumeric(dr("SubMenuItemIndex")) Then
                    SubMenuItemIndex = dr("SubMenuItemIndex")
                End If

                If dr("ParentID") = 0 Then
                    If IsTopMenu Then
                        If TopMenuItemIndex < 6 Then
                            TopMenuItemIndex = 6
                        End If
                        MenuScripItem.Items.Insert(TopMenuItemIndex, MenuItem)
                    Else
                        Dim Sep As New ToolStripSeparator
                        If SubMenuItemIndex = -1 Then
                            If IsSeparator Then
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Add(Sep)
                            Else
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Add(MenuItem)

                            End If
                        Else
                            If IsSeparator Then
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Insert(SubMenuItemIndex, Sep)
                            Else
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Insert(SubMenuItemIndex, MenuItem)
                            End If
                        End If
                    End If
                    CreateSubMenu(MenuItem, Convert.ToInt32(dr("MenuID")), dt)
                End If
            Next
        End Sub
#End Region

Private Methods#Region "Private Methods"
        '**********************************************************************************************************
        '功  能：动态创建子菜单
        '参  数：MenuItem - 一个ToolStripMenuItem对象，MenuID - 父菜单的 MenuID，dt - 一个 DataTable 对象
        '返回值：NULL
        '**********************************************************************************************************
        Private Sub CreateSubMenu()Sub CreateSubMenu(ByRef MenuItem As ToolStripMenuItem, ByVal MenuID As Integer, ByVal dt As DataTable)
            Dim dv As DataView = New DataView(dt)
            dv.RowFilter = "ParentID=" + MenuID.ToString()                          '当前父菜单下在所有子菜单
            For I As Integer = 0 To dv.Count - 1
                Dim SubMenuItem As ToolStripMenuItem = New ToolStripMenuItem()      '创建子菜单项
                SubMenuItem.Text = dv(I)("Text").ToString()
                SubMenuItem.ToolTipText = dv(I)("ToolTipText")
                SubMenuItem.Name = dv(I)("Name")

                If File.Exists(dv(I)("Image")) Then
                    SubMenuItem.Image = Image.FromFile(dv(I)("Image"))
                End If

                If dv(I)("Visible").ToString.Length > 0 Then
                    SubMenuItem.Visible = Boolean.Parse(dv(I)("Visible"))
                End If


                If IsNumeric(dv(I)("ShortcutKeys")) Then
                    SubMenuItem.ShortcutKeys = Integer.Parse(dv(I)("ShortcutKeys"))
                End If
                MenuItem.DropDownItems.Add(SubMenuItem)
                CreateSubMenu(SubMenuItem, Convert.ToInt32(dv(I)("MenuID")), dt) '递归调用
            Next
        End Sub
#End Region

    End Class
End Namespace


'**********************************************************************************************************
' Programmer By Shadow (QQ:33512603)
' User Interface MainMenuClick  Class
' The MainMenuClick class response menu click event
' Corpright(C) 2006 Jiang Jian
'**********************************************************************************************************
' 程序设计：江建
'**********************************************************************************************************

Imports System.Diagnostics
Imports System.Windows.Forms


Namespace DataHelperNamespace DataHelper.UserInterface

    Public Class MainMenuClickClass MainMenuClick
        Private Declare Function SetParent()Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
        Private Declare Function SetWindowPos()Function SetWindowPos Lib "user32" (ByRef hwnd As Integer, ByRef hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, 

ByVal cy As Integer, ByVal wFlags As Integer) As Integer

        Private Const SWP_NOSIZE = &H1
        Private Const SWP_NOMOVE = &H2

        Private DataConvert As New Process

Public Methods#Region "Public Methods"
        '**********************************************************************************************************
        '功  能：为动态创建的菜单提供事件相应
        '参  数：sender - 引发事件的一个对象 e - EventArgs 是包含事件数据的类的基类
        '返回值：NULL
        '**********************************************************************************************************
        Public Sub MainMenu_Click()Sub MainMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            Select Case CType(sender, ToolStripMenuItem).Name
                Case Is = "DataConvert"
                    DataConvert.StartInfo.FileName = (Application.StartupPath & "PluginsDTSWIZdtswiz.exe")
                    DataConvert.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
                    DataConvert.Start()
                    DataConvert.WaitForExit(1000)
                    SetParent(DataConvert.MainWindowHandle, Process.GetCurrentProcess.MainWindowHandle)
            End Select
        End Sub
#End Region

Overrides Methods#Region "Overrides Methods"
        '**********************************************************************************************************
        '功  能：垃圾回收
        '参  数：NULL
        '返回值：NULL
        '**********************************************************************************************************
        Protected Overrides Sub Finalize()Sub Finalize()
            MyBase.Finalize()
            If Not DataConvert.HasExited Then
                DataConvert.Refresh()
                DataConvert.CloseMainWindow()
                DataConvert.Kill()
            End If
        End Sub
#End Region


    End Class
End Namespace



最后是测试 哈哈 终于完了 在你的主窗体下 加入一个 MenuScript 控件 名称为 MainMenu 这次测试未添加 顶级菜单 如果要添加顶级菜单 请修改XML文件 IsTopMenu 为1


  Private Sub frmMain_Load()Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim test As New MainMenu
        test.CreateMenu(Me.MainMenu)
  End Sub