动态添加菜单项到TreeView
需积分: 15 165 浏览量
2013-12-06
21:26:02
上传
评论
收藏 22KB DOC 举报
将 MenuStrip 的菜单项添加到 TreeView 中
Public Sub MenuTextToTree(ByVal p_Menu As ToolStripItemCollection,
ByVal p_TreeNode As TreeNode)
Dim i As Integer = 0
While i <> p_Menu.Count
Dim _Node As New TreeNode(p_Menu(i).Text)
p_TreeNode.Nodes.Add(_Node)
If TypeOf p_Menu(i) Is ToolStripMenuItem Then
MenuTextToTree(DirectCast(p_Menu(i),
ToolStripMenuItem).DropDownItems, _Node)
End If
i += 1
End While
End Sub
在相关事件中添加如下代码：
Dim i As Integer = 0
While i <> MenuStrip1.Items.Count
Dim _Node As New TreeNode(MenuStrip1.Items(i).Text)
TreeView1.Nodes.Add(_Node)
If TypeOf MenuStrip1.Items(i) Is ToolStripMenuItem Then
MenuTextToTree(DirectCast(MenuStrip1.Items(i),
ToolStripMenuItem).DropDownItems, _Node)
End If
i += 1
End While
资源评论
