以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何遍历组合按钮下的标准按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113220)

--  作者:xujie80
--  发布时间:2018/1/11 13:02:00
--  如何遍历组合按钮下的标准按钮
通过菜单遍历组件
Dim itm As RibbonMenu.RibbonItem
For Each 
itm In RibbonTabs("Table").Groups("Column").Items
    
If Typeof itm Is RibbonMenu.Button Then
        
itm.Enabled = False
    
End If
Next
但是这也只能遍历到功能组下的标准按钮或组合按钮,要想遍历到组合按钮下的标准按钮,该如何操作?

--  作者:有点甜
--  发布时间:2018/1/11 14:39:00
--  

加一个循环即可,如

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71594&skin=0

 


--  作者:xujie80
--  发布时间:2018/1/11 15:02:00
--  
谢谢,已经解决,不过不明白为什么要用object转换一下?官方的帮助文件说items会返回组合按键的集合的。
--  作者:有点甜
--  发布时间:2018/1/11 15:39:00
--  
以下是引用xujie80在2018/1/11 15:02:00的发言:
谢谢,已经解决,不过不明白为什么要用object转换一下?官方的帮助文件说items会返回组合按键的集合的。

 

用object是省事而已,你也可以写成具体的类型。