有关VB.NET动态加载菜单的问题,请高手指教!
本人需要用vb.net编程,从一个SQLSERVER数据表中读取其配置信息,并把读取的信息加载到winform的菜单中。如数据表中有多条数据,每条数据有两个字段,分别为“用户系统名称”和“系统简称”,读取后,把数据加载到窗体的菜单中,“用户系统名称”为菜单的显示,即菜单的text,“系统简称”为菜单的名称,即菜单的name。同时,动态加载的菜单项都可以有点击事件,请问如何编程。
请高手指教,谢谢了!!
[解决办法]
- VB code
'objMenuList是从数据库里查出来的结果,这里假设一个Name, 一个Text属性For Each item In objMenuList Dim objToolScriptMenuItem As ToolStripMenuItem = New ToolStripMenuItem objToolScriptMenuItem.Text = item.MenuText objToolScriptMenuItem.Name = item.MenuName AddHandler objToolScriptMenuItem.Click, AddressOf ToolStripMenuItem_Click Me.MenuStrip1.Items.Add(objToolScriptMenuItem)Next------------------------Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim obj As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem) MsgBox(obj.Name & ":" & obj.Text)End Sub