以文本方式查看主题

-  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=16332)
--  作者：新福星
--  发布时间：2012/2/10 6:55:00
--  [求助]如何遍历菜单中的功能区、功能组、标准按钮？

帮助教材中在引用功能区或功能组时都是具体引用，如何从功能区开始一直到标准按钮进行自动遍历？就是想做成下列程序中这样的循环，但是?部份不知怎么写。请狐爸指点

 

Dim a As RibbonMenu.Tab
Dim b As RibbonMenu.Group
Dim c As RibbonMenu.Button

 

For a In ?  \'RibbonMenu.tab.items
    For b In ?  \'RibbonMenu.Group.items
        For c In  ?  \'RibbonMenu.Button   \' .Group.items
           \' MessageBox.Show(a & b & c)
        Next
    Next
Next
--  作者：狐狸爸爸
--  发布时间：2012/2/10 9:00:00
--  
For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For Each a3 As RibbonMenu.RibbonItem In a2.Items
        Next
    Next
Next
--  作者：新福星
--  发布时间：2012/2/10 11:06:00
--  
谢谢
--  作者：新福星
--  发布时间：2012/2/10 11:19:00
--  

不对了。我想要显示的是我自己建立的那些菜单内的内容。
--  作者：狐狸爸爸
--  发布时间：2012/2/10 11:21:00
--  
以下是引用新福星在2012-2-10 11:19:00的发言：

不对了。我想要显示的是我自己建立的那些菜单内的内容。

 

什么意思？
--  作者：新福星
--  发布时间：2012/2/10 11:26:00
--  
我自己建立的一套菜单,想要遍历我自己编的菜单中的内容
--  作者：狐狸爸爸
--  发布时间：2012/2/10 11:28:00
--  
方法一样，没有什么不同。
--  作者：新福星
--  发布时间：2012/2/10 11:29:00
--  
我看显示出的内容全部是系统内的菜单内容啊!
--  作者：新福星
--  发布时间：2012/2/10 11:31:00
--  
我找到原因了 是我做测试时我做的菜单没有显示出来.