vb.net winform动态生成菜单(源码)

效果图：



源码如下：

Private Sub CreateMenu(ByVal dt As DataTable)

Dim mainMenu As New MenuStrip

Dim dv As DataView = dt.DefaultView

dv.RowFilter = "MenuLevel='1'"

For i As Integer = 0 To dv.Count - 1

Dim topMenu As New ToolStripMenuItem

'给菜单赋Text值。也就是在界面上看到的值。

topMenu.Text = dv(i).Item("MenuText").ToString

'如果是有下级菜单则通过CreateSubMenu方法来创建下级菜单

If dv(i).Item("SubMenu") = "1" Then

'以ref的方式将顶层菜单传递参数

CreateSubMenu(topMenu, dv(i).Item("MenuID"), dt)

End If

'显示应用程序中已打开的 MDI 子窗体列表的菜单项

mainMenu.MdiWindowListItem = topMenu

'将递归附加好的菜单加到菜单根项上

mainMenu.Items.Add(topMenu)

Next

mainMenu.Dock = DockStyle.Top

'这句很重要。如果不写这句菜单将不会出现在主窗体中。

Me.Controls.Add(mainMenu)

End Sub

Private Sub CreateSubMenu(ByRef topMenu As ToolStripMenuItem, ByVal itemID As Integer, ByVal dt As DataTable)

Dim dv As DataView = dt.AsDataView

'过滤出当前父菜单下在所有子菜单数据(仅为下一层的)

dv.RowFilter = "MenuPre='" & itemID.ToString + "'"

For i As Integer = 0 To dv.Count - 1

'创建子菜单项

Dim subMenu As New ToolStripMenuItem

subMenu.Text = dv(i).Item("MenuText")

'如果还有子菜单则继续递归加载

If dv(i).Item("SubMenu") = "1" Then

'以ref的方式将顶层菜单传递参数

CreateSubMenu(subMenu, dv(i).Item("MenuID"), dt)

Else

'扩展属性可以加任何想要的值。这里用MenuForm属性来加载窗体。

subMenu.Tag = dv(i).Item("MenuForm")

'给没有子菜单的菜单项加事件。

AddHandler subMenu.Click, AddressOf subMenu_click

End If

topMenu.DropDownItems.Add(subMenu)

Next

End Sub

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

Dim formName As String = CType(sender, ToolStripMenuItem).Tag.ToString

CreateFormInstance(formName)

End Sub

Private Sub CreateFormInstance(ByVal strFormName As String)

Dim flag As Boolean = False

'遍历主窗口上的所有子菜单

For i As Integer = 0 To Me.MdiChildren.Length - 1

'如果所点的窗口被打开则重新激活

If Me.MdiChildren(i).Tag.ToString().ToLower = strFormName.ToLower Then

Me.MdiChildren(i).Activate()

Me.MdiChildren(i).Show()

Me.MdiChildren(i).WindowState = FormWindowState.Normal

flag = True

Exit For

End If

Next

If flag = False Then

'如果不存在则用反射创建form窗体实例

Dim asm As Assembly = Assembly.Load("winMain")

Dim objForm As Object = asm.CreateInstance("winMain." + strFormName)

Dim frm As New Form

frm = CType(objForm, Form)

frm.TopLevel = False

frm.Parent = Me.panelForm

frm.Show()

End If

End Sub

Private Function dtMenu() As DataTable

Dim dt As New DataTable

'菜单ID

Dim column0 As New DataColumn

column0.DataType = System.Type.GetType("System.String")

column0.AllowDBNull = False

column0.Caption = "菜单ID"

column0.ColumnName = "MenuID"

'菜单级别

Dim column1 As New DataColumn

column1.DataType = System.Type.GetType("System.String")

column1.AllowDBNull = False

column1.Caption = "菜单级别"

column1.ColumnName = "MenuLevel"

'菜单名称

Dim column2 As New DataColumn

column2.DataType = System.Type.GetType("System.String")

column2.AllowDBNull = False

column2.Caption = "菜单名称"

column2.ColumnName = "MenuName"

'菜单显示文本

Dim column3 As New DataColumn

column3.DataType = System.Type.GetType("System.String")

column3.AllowDBNull = False

column3.Caption = "菜单显示文本"

column3.ColumnName = "MenuText"

'上级菜单

Dim column4 As New DataColumn

column4.DataType = System.Type.GetType("System.String")

column4.AllowDBNull = False

column4.Caption = "上级菜单"

column4.ColumnName = "MenuPre"

'子菜单

Dim column5 As New DataColumn

column5.DataType = System.Type.GetType("System.String")

column5.AllowDBNull = False

column5.Caption = "子菜单"

column5.ColumnName = "SubMenu"

'菜单打开窗体

Dim column6 As New DataColumn

column6.DataType = System.Type.GetType("System.String")

column6.AllowDBNull = False

column6.Caption = "菜单打开窗体"

column6.ColumnName = "MenuForm"

dt.Columns.Add(column0)

dt.Columns.Add(column1)

dt.Columns.Add(column2)

dt.Columns.Add(column3)

dt.Columns.Add(column4)

dt.Columns.Add(column5)

dt.Columns.Add(column6)

Dim row As DataRow

row = dt.NewRow()

row("MenuID") = "1"

row("MenuLevel") = "1"

row("MenuName") = "menu1"

row("MenuText") = "一级菜单1"

row("MenuPre") = "0"

row("SubMenu") = "1"

row("MenuForm") = "1"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "2"

row("MenuLevel") = "1"

row("MenuName") = "menu2"

row("MenuText") = "一级菜单2"

row("MenuPre") = "0"

row("SubMenu") = "1"

row("MenuForm") = "1"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "3"

row("MenuLevel") = "1"

row("MenuName") = "menu3"

row("MenuText") = "一级菜单3"

row("MenuPre") = "0"

row("SubMenu") = "1"

row("MenuForm") = "1"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "4"

row("MenuLevel") = "2"

row("MenuName") = "menu4"

row("MenuText") = "一级菜单1二级菜单1"

row("MenuPre") = "1"

row("SubMenu") = "0"

row("MenuForm") = "frmTest"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "5"

row("MenuLevel") = "2"

row("MenuName") = "menu5"

row("MenuText") = "一级菜单1二级菜单2"

row("MenuPre") = "1"

row("SubMenu") = "1"

row("MenuForm") = "1"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "6"

row("MenuLevel") = "2"

row("MenuName") = "menu6"

row("MenuText") = "一级菜单2二级菜单1"

row("MenuPre") = "2"

row("SubMenu") = "0"

row("MenuForm") = "1"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "7"

row("MenuLevel") = "3"

row("MenuName") = "menu7"

row("MenuText") = "一级菜单1二级菜单2三级菜单1"

row("MenuPre") = "5"

row("SubMenu") = "0"

row("MenuForm") = "1"

dt.Rows.Add(row)

row = dt.NewRow()

row("MenuID") = "8"

row("MenuLevel") = "3"

row("MenuName") = "menu8"

row("MenuText") = "一级菜单1二级菜单2三级菜单2"

row("MenuPre") = "5"

row("SubMenu") = "0"

row("MenuForm") = "1"

dt.Rows.Add(row)

Return dt

End Function