Foxtable(狐表)用户栏目专家坐堂 → [求助] 遍历配置栏某菜单的子菜单


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

主题:[求助] 遍历配置栏某菜单的子菜单

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


加好友 发短信
等级:三尾狐 帖子:602 积分:6912 威望:0 精华:0 注册:2012/5/30 16:01:00
[求助] 遍历配置栏某菜单的子菜单  发帖心情 Post By:2013/11/8 9:13:00 [只看该作者]

求助一下,

Dim itm As RibbonMenu.RibbonItem
For Each itm In ConfigBar.Items
    Msgbox(itm.Name)
Next

我这个只能遍历所有配置栏菜单的顶层菜单, 请问我想遍历配置栏单个顶层菜单的子菜单,代码如何修改?

[此贴子已经被作者于2013-11-8 9:13:29编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/8 9:14:00 [只看该作者]

配置栏何来的子菜单?  

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/8 9:14:00 [只看该作者]

你是指遍历配置栏某个下拉组合框里面的按钮吗?

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


加好友 发短信
等级:三尾狐 帖子:602 积分:6912 威望:0 精华:0 注册:2012/5/30 16:01:00
  发帖心情 Post By:2013/11/8 9:15:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2013-11-08_091408.jpg
图片点击可在新窗口打开查看

如上图中的采购管理菜单 下面的各个菜单内容


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


加好友 发短信
等级:三尾狐 帖子:602 积分:6912 威望:0 精华:0 注册:2012/5/30 16:01:00
  发帖心情 Post By:2013/11/8 9:16:00 [只看该作者]

是的

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


加好友 发短信
等级:三尾狐 帖子:602 积分:6912 威望:0 精华:0 注册:2012/5/30 16:01:00
  发帖心情 Post By:2013/11/8 9:17:00 [只看该作者]

是的,就是你的这个意思,请问怎么改写代码

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/8 9:18:00 [只看该作者]


For Each itm As  RibbonMenu.button In ConfigBar.Items("采购管理").items
    Msgbox(itm.Name)
Next


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


加好友 发短信
等级:三尾狐 帖子:602 积分:6912 威望:0 精华:0 注册:2012/5/30 16:01:00
  发帖心情 Post By:2013/11/8 9:43:00 [只看该作者]

以下是引用Bin在2013-11-8 9:18:00的发言:

For Each itm As  RibbonMenu.button In ConfigBar.Items("采购管理").items
    Msgbox(itm.Name)
Next

 

谢谢!不过以下更完美:

Dim itm As RibbonMenu.RibbonItem
For Each itm In configbar.Items("采购管理").items
    If Typeof itm Is ribbonmenu.button Then
        msgbox(itm.name)
    End If
   
Next


 回到顶部