以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【已解决】请问菜单的目录树是如何生成的？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15330)
--  作者：hanxuntx
--  发布时间：2011/12/20 22:05:00
--  【已解决】请问菜单的目录树是如何生成的？


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20111220220444.png
图片点击可在新窗口打开查看

请问生成这个目录树的代码是什么?

是否又用到了递归函数？

 

[此贴子已经被作者于2011-12-21 10:29:50编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/12/20 22:10:00
--  

这个和编程无关的。
--  作者：hanxuntx
--  发布时间：2011/12/20 22:54:00
--  

狐爸我现在做一个权限系统

需要动态获得菜单目录树

所以问一下如何写这个生成菜单目录树的代码
--  作者：狐狸爸爸
--  发布时间：2011/12/21 10:02:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each tab As RibbonMenu.Tab In  RibbonTabs
    Dim nd1 As WinForm.TreeNode  = trv.Nodes.add(tab.Name)
    For Each grp As RibbonMenu.Group In tab.Groups
        Dim nd2 As WinForm.TreeNode  = nd1.Nodes.add(grp.Name)
        For Each itm As RibbonMenu.RibbonItem In grp.Items
            nd2.Nodes.add(itm.Name)
        Next
    Next
Next
--  作者：hanxuntx
--  发布时间：2011/12/21 10:30:00
--  
谢谢