cmd.CommandText = "sele ct * from {菜单管理表} where 窗体名称 = '" & e.Form.Name & "' and 名称 is not null"
Dim csdt As DataTable = cmd.ExecuteReader
For Each cr As DataRow In csdt.Select("层数=1")
Dim mnu As Winform.Strip
If cr("菜单类型") = "MainMenu"
mnu = e.Form.Strips.Add(cr("名称"),StripTypeEnum.MainMenu)
ElseIf cr("菜单类型") = "ContextMenu"
......
End If
If mnu IsNot Nothing
Functions.Execute("增加菜单",mnu,csdt,cr("ID"))
End If
Next
函数
Dim mnu As Winform.Strip = args(0)
Dim csdt As DataTable = args(1)
Dim id As Integer = args(2)
For Each cr As DataRow In csdt.Select("父阶id=" & id)
Dim itm As WinForm.StripItem
If cr("菜单类型") = "MenuItem"
mnu.Items.Add(dr("名称"),dr("标题"),dr("图标") ,StripItemTypeEnum.MenuItem)
ElseIf cr("菜单类型") = "Button"
……
End If
itm = mnu.Items(dr("名称"))
Functions.Execute("增加菜单",itm ,csdt,cr("ID"))
Next
加好友 
发短信
Post By：2019/8/18 20:57:00 [只看该作者]
