任务六

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

系统菜单在日常工作中功能区中，已经提供了非常完善的筛选与排序功能，要自己在"实战演练"功能区实现同样的功能，可不容易。
既然有现成的，我们没必要重新设计，只需在系统事件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

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