| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何获取菜单功能区功能组项目栏中菜单按钮中的标准按钮？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18279) |
| -- 作者：新福星 -- 发布时间：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 ...... next next next 在a3下面又加有"菜单按钮"或"标准按钮"，如何在上述程序中遍历引用呢？.
|
| -- 作者：新福星 -- 发布时间：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 Next Next Next 如何把a3下加入的"菜单按钮"或"标准按钮"引用出来呢?请老师指点!
|
| -- 作者：czy -- 发布时间：2012/4/8 10:28:00 -- For Each a1 As RibbonMenu.Tab In RibbonTabs
这就是标准按钮吧。 |
| -- 作者：新福星 -- 发布时间：2012/4/8 10:34:00 -- 是在A下一层又加有标准按钮或菜单钮，我要引用那一层的，怎么引用呢？ |
| -- 作者：新福星 -- 发布时间：2012/4/8 10:40:00 -- 我要引用见附件图 |
| -- 作者：新福星 -- 发布时间：2012/4/8 10:44:00 -- 我加的附件怎么没有呢？ 是在A3下一层又加有标准按钮，我要引用这一层的，怎么引用呢？ |
| -- 作者：狐狸爸爸 -- 发布时间：2012/4/9 8:02:00 -- 那就再加第四层判断。 |