- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何遍历“快速访问栏”做的“标准按钮”？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17549)
-- 发布时间：2012/3/16 13:21:00
-- 如何遍历“快速访问栏”做的“标准按钮”？
如题！
-- 发布时间：2012/5/7 0:46:00
--
同问。
简单一点说，就是如何遍历QAT所有项目。
这样方便我们通过控制菜单的ENABLE属性来控制用户权限。
我尝试这样
Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("QAT").Items
output.show(itm.name)
Next
但是报错！
狐爸一定抽出时间帮下忙！这个问题搞了好长时间没有解决。
[此贴子已经被作者于2012-5-7 0:58:49编辑过]
-- 发布时间：2012/5/7 7:08:00
--
Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("QAT").Items
If Typeof itm Is RibbonMenu.Button Then
output.show(itm.name)
End If
Next
-- 发布时间：2012/5/7 17:32:00
--
狐爸，你这段代码报错！
-- 发布时间：2012/5/7 17:43:00
--
Dim itm As RibbonMenu.RibbonItem
For Each itm In QAT.Items
If Typeof itm Is RibbonMenu.Button Then
output.show(itm.name)
End If
Next
-- 发布时间：2012/5/7 17:48:00
--
运行之后，这不是我想要的结果。
Save
Undo
Redo
Help
我要的是我自己建立的快捷菜单，而不是系统的。
狐爸够敬业的，回复够快，冲这点，我也要把狐表搞明白。
-- 发布时间：2012/5/7 17:50:00
--
那你打开自己的菜单，再运行这段代码。
-- 发布时间：2012/5/7 18:02:00
--
还是不行。
在程序运行时，用MSGBOX提示，结果什么结果都没有。
可能问的太多，大家都混淆了。
我再简化下提问：
遍历菜单设计-快速访问栏中的项目
-- 发布时间：2012/5/7 18:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目363.table |
-- 发布时间：2012/5/10 16:02:00
--
测试成功，这个地方必须要三个以上项目才行，切记啊。