[求助]如何获取菜单功能区功能组项目栏中菜单按钮中的标准按钮？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何获取菜单功能区功能组项目栏中菜单按钮中的标准按钮？

共有8173人关注过本帖树形打印复制链接主题：[求助]如何获取菜单功能区功能组项目栏中菜单按钮中的标准按钮？

新福星

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

加好友

发短信

等级：八尾狐帖子：1959 积分：15502 威望：0 精华：0 注册：2011/7/16 20:59:00

[求助]如何获取菜单功能区功能组项目栏中菜单按钮中的标准按钮？ 发帖心情

Post By：2012/4/8 6:32:00 [只看该作者]

如下对菜单项目进行遍历

For Each a1 As RibbonMenu.Tab In RibbonTabs

For Each a2 As RibbonMenu.group In a1.Groups

For Each a3 As RibbonMenu.RibbonItem In a2.Items

......

在a3下面又加有"菜单按钮"或"标准按钮"，如何在上述程序中遍历引用呢？.

新福星

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

加好友

发短信

等级：八尾狐帖子：1959 积分：15502 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2012/4/8 10:17:00 [只看该作者]

For Each a1 As RibbonMenu.Tab In RibbonTabs

For Each a2 As RibbonMenu.group In a1.Groups

For Each a3 As RibbonMenu.RibbonItem In a2.Items ' ToolBars

If a3.name.Contains("分割条")=True Or a3.name.Contains("Name")=True Or a3.name.Contains("退出")=True Then Continue For

If Typeof a3 Is RibbonMenu.MenuButton Then '判断控件是否是菜单

MessageBox.Show("A-" & a3.name )

......

End If

If Typeof a3 Is RibbonMenu.Button Then '判断控件是否是文本框

MessageBox.Show("B-" & a3.name )

End If

如何把a3下加入的"菜单按钮"或"标准按钮"引用出来呢?请老师指点!

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2012/4/8 10:28:00 [只看该作者]

For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For Each a3 As RibbonMenu.RibbonItem In a2.Items
            If Typeof a3 Is RibbonMenu.Button
                Output.Show(a3.name)
            End If
        Next
    Next
Next

这就是标准按钮吧。