任务六

给实战演练功能区加上所有筛选与排序功能。

系统菜单在日常工作中功能区中,已经提供了非常完善的筛选与排序功能,要自己在"实战演练"功能区实现同样的功能,可不容易。
既然有现成的,我们没必要重新设计,只需在系统事件Load中加入如下代码:

RibbonTabs("实战演练").Groups.Add(RibbonTabs("Common").Groups("SortAndFilter"))

是不是出乎意料的简单? 没错,所有的功能组和单个菜单组件都可以随意移动,甚至可以同时在多个地方出现。
利用这个功能,你可以在Load事件中,将常用的按钮添加到快速访问栏和配置栏中,而无需重新设计。
需要注意的是,快速访问栏和配置栏中只能显示小图标,所以如果某个按钮计划加入到其中,请同时设置该按钮大小图标。

如果并不想将“排序与筛选”整个功能组加入到“实战演练”功能区,而只希望加入其中部分组件,可以参考下面的代码:

Dim ng As New RibbonMenu.Group("Filter") '定义新的功能组
ng.Text =
"筛选" '设置功能组标题
RibbonTabs(
"实战演练").Groups.Add(ng) '将功能组加入实战演练功能区
With
RibbonTabs("Common").Groups("SortAndFilter")
    ng.Items.Add(.Items(
"Filter")) '添加筛选按钮
    ng.Items.Add(.Items(
"SelectFilter")) '添加选择按钮
    ng.Items.Add(.Items(
"Advanced")) '添加编辑按钮
    ng.Items.Add(.Items(
"UnFilter")) '添加撤销按钮
    ng.Items.Add(.Items(
"Separator")) '添加分隔条
    ng.Items.Add(.Items(
"Toggle")) '添加切换按钮
End
With

你可以将上面的代码复制到命令窗口执行,看看会发生什么。


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