项目集合

RibbonTabs是个集合,包括菜单的所有功能区。
功能区(Tab)的Groups属性是个集合,包括此功能区的所有功能组。
功能组(Group)、工具栏(ToolBar)、配置栏(ConfigBar)、组合按钮(SplitButton)、菜单按钮(MenuButton)、组合框(ComboBox)等都是容器,它们都有Items属性,此属性返回一个集合,包括此容器中的所有菜单组件。
程序菜单(ApplicationMenu)也是个容器,不过它有三个集合,用三个属性返回,分别是LeftItems(左侧菜单组件集合)、RightItems(右侧菜单组件集合)、BottomItems(底部菜单组件集合)。

利用项目集合,不仅可以获得指定名称的菜单组件,我们还可以向其中增加、插入和删除菜单组件。

项目集合的方法:

方法 说明
Contains 判断是否包括指定名称的组件。

语法:

Contains(Name)

Name: 组件名称
Clear 清除所有组件
Add 增加一个组件,语法:

Add(Item)

Item: 要增加的项目
Insert 在指定位置插入一个组件。

语法:

Insert(Index, Item)

Index:  整数型,插入位置
Item:   要插入的组件。
Remove 删除指定的组件,或者删除指定名称的组件。

语法:

Remove(Name)
Remove(Item)

Name: 组件名称
Item:组件

通过项目集合,可以返回集合中指定名称的菜单组件,例如:

Dim btn As RibbonMenu.Button
btn = RibbonTabs(
"Common").Groups("Data").Items("DeleteRow")
btn.Enabled =
False

表示禁用Common功能区、Data功能组中的DeleteRow组件,也就是禁用删除行按钮。

由于Groups和Items都是默认属性,所以可简化为:

Dim btn As RibbonMenu.Button
btn
= RibbonTabs("Common")("Data")("DeleteRow")
btn
.Enabled
= False

如果喜欢,用一行代码也可以:

RibbonTabs("Common")("Data")("DeleteRow").Enabled = False

利用项目集合,可以动态生成菜单,后面的实战演练会介绍。


本页地址:http://www.foxtable.com/webhelp/topics/1132.htm