菜单动态生成及菜单点击事件

    '''

    ''' 主菜单加载

    '''

    '''
    Private Sub LoadMenuStrip()

        For i = 0 To dt.Rows.Count - 1
            If dt.Rows(i).Item("FRM_ID_LAST").Trim = "0" Then

                ’topMenuItem 主菜单

                Dim topMenuItem As New ToolStripMenuItem
                topMenuItem.Text = dt.Rows(i).Item("FRM_NAME_C").Trim
                topMenuItem.Tag = dt.Rows(i).Item("FRM_ID").Trim
                ’主菜单添加

                Me.mspMenu.Items.Add(topMenuItem)    

                ’主菜单点击触发事件    
                AddHandler topMenuItem.Click, AddressOf mspMenuItem_Click  ’委托
                If dt.Rows(i).Item("ROOT_BUN").Trim <> "1" Then

                    ’子菜单加载
                    LoadSubMenu(dt, topMenuItem, dt.Rows(i).Item("FRM_ID").Trim)
                End If
            End If
        Next

    End Sub

 

    '''

    ''' 子菜单加载

    '''

    ''' 记录集
    ''' 主菜单
    ''' id
    '''
    Private Sub LoadSubMenu(ByVal dtTable As DataTable, ByVal topMenuItem As ToolStripMenuItem, ByVal frmId As String)
        Dim i As Integer
        For i = 0 To dtTable.Rows.Count - 1
            If dtTable.Rows(i).Item("FRM_ID").Trim <> "0" Then
                If dtTable.Rows(i).Item("FRM_ID_LAST").Trim = frmId Then

                    ’subMenuItem 子菜单

                    Dim subMenuItem As New ToolStripMenuItem

                    subMenuItem.Text = dtTable.Rows(i).Item("FRM_NAME_C").Trim
                    subMenuItem.Tag = dtTable.Rows(i).Item("FRM_ID").Trim

                    topMenuItem.DropDownItems.Add(subMenuItem)

                    ’子菜单点击触发事件  
                    AddHandler subMenuItem.Click, AddressOf mspMenuItem_Click
                    If dtTable.Rows(i).Item("ROOT_BUN").Trim <> "1" Then
                        LoadSubMenu(dtTable, subMenuItem, dtTable.Rows(i).Item("FRM_ID").Trim)
                    End If
                End If
            End If
        Next

    End Sub

 

    Private Sub mspMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        For i = 0 To dt.Rows.Count - 1
            If dt.Rows(i).Item("FRM_ID").Trim = sender.Tag Then
                If dt.Rows(i).Item("ROOT_BUN").Trim = "1" Then

                End If
            End If
        Next

    End Sub