以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何把右键菜单遍历到目录树呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151492)
--  作者：81538475
--  发布时间：2020/6/24 20:03:00
--  [求助]如何把右键菜单遍历到目录树呢
如题
--  作者：有点蓝
--  发布时间：2020/6/24 20:40:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98817&skin=0
--  作者：81538475
--  发布时间：2020/6/24 21:42:00
--  
不是这个哈，我是需要把右键菜单生成目录树，不是再目录树上点右键菜单
--  作者：有点蓝
--  发布时间：2020/6/24 22:05:00
--  
遍历菜单：http://www.foxtable.com/webhelp/scr/1926.htm
--  作者：81538475
--  发布时间：2020/6/28 21:21:00
--  
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.Nodes.Clear
For Each o As object In ContextMenus("Cell").Items
    If tv.Nodes.Contains(o.Name) = False Then
        tv.Nodes.Add(o.Name)
    End If
    
    Dim pi As System.Reflection.PropertyInfo = ContextMenus("Cell").Items(o.name).Gettype().GetProperty("Items")
    
    If pi IsNot Nothing Then
        For Each ob As object In  ContextMenus("Cell").Items(o.name).Items
            If tv.Nodes(o.name).Nodes.Contains(ob.name) = False Then
                tv.Nodes(o.name).Nodes.Add(ob.Name)
            End If
        Next
    End If
Next
如果想遍历右键菜单下的所有下级菜单应该怎么调整一下呢
--  作者：有点蓝
--  发布时间：2020/6/28 21:53:00
--  
使用递归，类似：http://www.foxtable.com/webhelp/topics/2416.htm