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

最新推荐文章于 2022-01-03 13:16:12 发布

wo8352490123

最新推荐文章于 2022-01-03 13:16:12 发布

阅读量1k

点赞数 1

分类专栏： Vb.net编程代码实例文章标签： integer object string c

本文链接：https://blog.csdn.net/wo8352490123/article/details/4558203

版权

Vb.net编程代码实例专栏收录该内容

2 篇文章 0 订阅

订阅专栏

''' <summary>
''' 主菜单加载

    ''' </summary>
    ''' <remarks></remarks>
    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

''' <summary>
''' 子菜单加载

    ''' </summary>
    ''' <param name="dtTable">记录集</param>
    ''' <param name="topMenuItem">主菜单</param>
    ''' <param name="frmId">id</param>
    ''' <remarks></remarks>
    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