以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用代码显示所有菜单功能组件（如按钮等）的集合  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8931)
--  作者：shixia
--  发布时间：2010/12/28 13:43:00
--  如何用代码显示所有菜单功能组件（如按钮等）的集合

如何用代码显示所有菜单功能组件（如按钮等）的集合？

帮助中有：

 

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("Table").Groups("Table").Items
    itm.Enabled = False
Next

如果需要包含Table功能区中名为Table的功能组以外所有的组件呢

 
--  作者：狐狸爸爸
--  发布时间：2010/12/28 14:30:00
--  

禁止除Table功能区之外的所有其他功能区

 

Dim itm As RibbonMenu.Tab
For Each itm In RibbonTabs
    If itm.Name <> "Table" Then
        itm.Enabled = False
    End If
Next
--  作者：shixia
--  发布时间：2010/12/28 15:13:00
--  

我提问错了，应该是

For Each itm In 所有功能区、功能组中所有按钮
    itm.Enabled = False
Next
--  作者：狐狸爸爸
--  发布时间：2010/12/28 15:20:00
--  

Dim tab As RibbonMenu.Tab
Dim grp As RibbonMenu.Group
Dim itm As RibbonMenu.RibbonItem
For Each tab  In RibbonTabs
    For Each grp In tab.groups
        For Each itm In grp.items


        Next
    Next
Next