- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 遍历配置栏某菜单的子菜单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42303)
-- 发布时间：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编辑过]
-- 发布时间：2013/11/8 9:14:00
--
配置栏何来的子菜单?
-- 发布时间：2013/11/8 9:14:00
--
你是指遍历配置栏某个下拉组合框里面的按钮吗?
-- 发布时间：2013/11/8 9:15:00
--
此主题相关图片如下：2013-11-08_091408.jpg
如上图中的采购管理菜单 下面的各个菜单内容
-- 发布时间：2013/11/8 9:16:00
--
是的
-- 发布时间：2013/11/8 9:17:00
--
是的,就是你的这个意思,请问怎么改写代码
-- 发布时间：2013/11/8 9:18:00
--
For Each itm As RibbonMenu.button In ConfigBar.Items("采购管理").items
Msgbox(itm.Name)
Next
-- 发布时间：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