主题：快捷菜单，类型判断的Bug

For Each itm As RibbonMenu.ContextMenu In ContextMenus
    MessageBox.Show(itm.Gettype.Name) 'ContextMenu
    For Each itm1 As Object In ContextMenus(itm.Name).Items '没有通用类型，只能用Object凑上。
        MessageBox.Show(itm1.Gettype.Name) '明明有ContextCommandMenu,却只返回了ContextCommand
        If itm1.Gettype.Name = "ContextCommandMenu" Then '这个判断,失去了意义。
            For Each itm2 As Object In ContextMenus(itm.Name)(itm1.Name).Items

                 '如果不判断,就会报错:System.MissingMemberException: Public member 'Items' on type 'ContextCommand' not found.
            Next
        End If
    Next
Next

 

这样，快捷菜单的遍历，难上加难了。

 测试了一下，没有变通的方法，应该算是bug吧。

各种构件的遍历，包括窗口、窗口控件、菜单、内部函数、设置、全局代码，

如果能直接获取就好了。

顶起来，让狐爸关注。

其他菜单都行，单单快捷菜单不能遍历，伤心啊。

 

看了一下，你可以这样变通

 

For Each itm As RibbonMenu.ContextMenu In ContextMenus
    MessageBox.Show(itm.Gettype.Name) 'ContextMenu
    For Each itm1 As Object In ContextMenus(itm.Name).Items '没有通用类型,只能用Object凑上.
        Dim o As object = ContextMenus(itm.Name)(itm1.name)
        MessageBox.Show(o.Gettype.Name) '明明有ContextCommandMenu,却只返回了ContextCommand
    Next
Next

不管白猫黑猫，能捉老鼠，就是好猫。

 

老鼠已经捉住了。