以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于判断快捷菜单是否有子菜单和遍历快捷菜单的问题.  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55584)
--  作者：Bin
--  发布时间：2014/8/19 16:32:00
--  关于判断快捷菜单是否有子菜单和遍历快捷菜单的问题.
For Each o As object In ContextMenus("Cell").Items
    output.show(o.name)
    Dim pi As System.Reflection.PropertyInfo = ContextMenus("Cell").Items(o.name).Gettype().GetProperty("Items")
    If pi IsNot Nothing Then
        output.show("有子菜单-----------")
        For Each ob As object In  ContextMenus("Cell").Items(o.name).Items
            output.show(ob.name)
        Next
    End If
    output.show("-----------")
Next

以上是解决方案,可以写成递归就可以遍历一直判断下级是否有子节点了
--  作者：lsy
--  发布时间：2014/8/19 17:00:00
--  
不错，试试。