Foxtable(狐表)用户栏目专家坐堂 → [求助]如何遍历菜单中的功能区、功能组、标准按钮?


  共有10576人关注过本帖树形打印复制链接

主题:[求助]如何遍历菜单中的功能区、功能组、标准按钮?

帅哥哟,离线,有人找我吗?
新福星
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]如何遍历菜单中的功能区、功能组、标准按钮?  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2012/2/10 11:06:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2012/2/10 11:19:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/10 11:21:00 [只看该作者]

以下是引用新福星在2012-2-10 11:19:00的发言:

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

 

什么意思?


 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2012/2/10 11:26:00 [只看该作者]

我自己建立的一套菜单,想要遍历我自己编的菜单中的内容

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/10 11:28:00 [只看该作者]

方法一样,没有什么不同。

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2012/2/10 11:29:00 [只看该作者]

我看显示出的内容全部是系统内的菜单内容啊!

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2012/2/10 11:31:00 [只看该作者]

我找到原因了 是我做测试时我做的菜单没有显示出来.

 回到顶部