| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何把右键菜单遍历到目录树呢 (http://www.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 |