以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于历遍菜单组件的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56542)
--  作者：ap9709130
--  发布时间：2014/9/8 14:48: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

 

 

要怎么写呢？

 
--  作者：whoami2012
--  发布时间：2014/9/8 15:01:00
--  
Dim tab1 As RibbonMenu.Tab
Dim gup1 As RibbonMenu.Group
Dim itm1 As RibbonMenu.RibbonItem
For Each tab1 In RibbonTabs  \'遍历所有功能区
    For Each gup1 In tab1.Groups
        For Each itm1 In gup1.Items
            If Typeof itm1 Is RibbonMenu.Button Then
 itm1.Enabled = False
            End If
        Next
    Next
Next