关于历遍菜单组件的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于历遍菜单组件的问题

共有2042人关注过本帖树形打印复制链接主题：关于历遍菜单组件的问题

ap9709130

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

关于历遍菜单组件的问题 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：191 积分：1653 威望：0 精华：1 注册：2012/2/8 22:07:00

Post By：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

下一主题 >> << 上一主题

主题：关于历遍菜单组件的问题