细品RibbonX(49)：在功能区中使用上下文控件

楼主 apolloh	上下文选项卡对新UI的功能提供了极大的推进作用。当用户对某对象执行特定的任务时就会出现特定的选项卡。例如，在Excel中处理图表时，一个上下文选项卡提供用于图表处理的额外选项。本文将介绍创建和执行这些特定的选项卡，以及如何修改内置的上下文选项卡，也介绍如何定制或替换内置的弹出菜单，如何创建自已的上下文弹出菜单。最后，探讨创建一个使用多种语言的UI。使项目上下文使项目上下文意味着必须响应所做的内容，例如操控表或图片。根据对上下文控件的定义，需要在新Office UI中使用上下文选项卡集合来执行任务。然而，也不总是这样。下面介绍上下文控件的概念，例如选项卡、组和通用控件。当执行上下文敏感的命令时，立即想到的是上下文选项卡。作为使Ribbon的功能完整的一部分，这些特定的选项卡将根据所选择的对象或这些对象是否获得焦点而从功能区中出现和消失，例如图表、数据透视表或图片。下图显示了名为“图片工具”的tabSet，包含一个名为“格式”的选项卡。要实现这样的解决方案，需要使用上下文选项卡集合和tabSet元素。下面的XML标记作为上下文选项卡集和相应的选项卡的容器： <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon> <contextualTabs> <tabSet> <!-- Your contextual tab code goes here --> </tabSet> </contextualTabs> </ribbon> </customUI> contextualTabs集合是每个tabSet的父对象，同样选项卡的collection对象是选项卡的父对象。可以使用上述代码来创建自已的上下文敏感功能，访问内置的tabSets来修改它们。不巧的是，这样的tabSets扩展不能应用到Excel或Word，仅能对Access的窗体和报表提供这样的扩展。当在Access中使用自定义选项卡tabSets时，需要按下列方式引用扩展的tabSet： <tabSet idMso=”TabSetFormReportExtensibility”> 在这个tabSet里，创建上下文选项卡UI。对于Excel和Word，需要通过完全控制内置的上下文选项卡或者通过联合getVisible属性使用事件来使选项卡的行为像上下文选项卡。例如，当用户处理Excel工作簿中的工作表Sheet1时，希望仅使字体组和插入图表组可见。XML代码： <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="rxIRibbonUI_onLoad"> <ribbon startFromScratch="false"> <tabs> <tab idMso="TabHome"> <group idMso="GroupFont" getVisible="rxShared_getVisible"/> </tab> <tab idMso="TabInsert"> <group idMso="GroupInsertChartcel" getVisible="rxShared_getVisible"/> </tab> </tabs> </ribbon> </customUI> 使用在XML中定义的共享回调，现在能够通过使用想控制的特定工作表的自定义属性来决定属性的返回值。使用下面的代码： Sub rxShared_getVisible(control As IRibbonControl, ByRef returnedVal) Select Case control.ID Case "GroupFont" returnedVal = Sheet1.rxGroupFontVisible Case "GroupInsertChartcel" returnedVal = Sheet1.rxGroupInsertChartcel End Select End Sub 根据自定义的属性值设置该属性的值。首先，设置Ribbon对象，这样当文档打开时以便设置该Ribbon为ThisWorkbook对象的属性。下面的代码放置在ThisWorkbook模块中： Private pRibbonUI As IRibbonUI Public Property Let rxIRibbonUI(iRib As IRibbonUI) Set pRibbonUI = iRib End Property Public Property Get rxIRibbonUI() As IRibbonUI Set rxIRibbonUI = pRibbonUI End Property 其次，指定想控制的工作表的自定义属性，代码如下所示。自定义属性可读写，以便执行期间的任何时候都能重新赋值。 Private pblnGroupFontVisible As Boolean Private pblnGroupChartVisible As Boolean Property Let rxGroupFontVisible(ByVal blnVisible As Boolean) pblnGroupFontVisible = blnVisible End Property Property Get rxGroupFontVisible() As Boolean rxGroupFontVisible = pblnGroupFontVisible End Property Property Let rxGroupInsertChartcel(ByVal blnVisible As Boolean) pblnGroupChartVisible = blnVisible End Property Property Get rxGroupInsertChartcel() As Boolean rxGroupInsertChartcel = pblnGroupChartVisible End Property 最后，根据需要修改自定义属性。这里，我们希望当指定工作表是活动工作表时显示这些组，因此使用Worksheet_Activate和Worksheet_Deactivate事件来修改属性值，代码如下： Private Sub Worksheet_Activate() Sheet1.rxGroupFontVisible = True Sheet1.rxGroupInsertChartcel = True ThisWorkbook.rxIRibbonUI.Invalidate End Sub Private Sub Worksheet_Deactivate() Sheet1.rxGroupFontVisible = False Sheet1.rxGroupInsertChartcel = False ThisWorkbook.rxIRibbonUI.Invalidate End Sub 当激活/取消激活该工作表时，显示或隐藏相应的组。使用不明显的方法使用可见性创建上下文敏感的选项卡和组可能有点不正规，但是确实是达到目标的有效的方式。然而，这种方式不是在所有情形下都可用，特别是在处理内置组中的内置控件时。可以使用enabled属性决定控件是否启用。下面通过使用getEnabled属性提供上下文敏感的控件。要禁用命令，必须引用该命令本身和按钮或通用控件，例如禁用复制和剪切命令的XML代码如下： <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="rxIRibbonUI_onLoad"> <commands> <command idMso="Copy" getEnabled="rxShared_getEnabled"/> <command idMso="Cut" getEnabled="rxShared_getEnabled"/> </commands> </customUI> 下一步，添加共享回调来处理要执行的程序： Sub rxShared_getEnabled(control As IRibbonControl, ByRef returnedVal) Select Case control.ID Case "Copy" returnedVal = Sheet1.rxCopyEnabled Case "Cut" returnedVal = Sheet1.rxCutEnabled End Select End Sub 同样，使用自定义属性指定回调的返回值。修改内置的选项卡集下图展示了对内置的图表工具上下文选项卡集中添加的自定义选项卡。正确修改内置选项卡集的关键是知道想要定制的tabSet的idMso，本例中，我们想修改TabSetChartTools选项卡集。因此，在内置选项卡集中添加自定义选项卡的XML代码如下： [code] <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">08.png 03.png 04.png 05.png 06.png 07.png
2楼轩辕轼轲	帖子好像不完整啊
3楼蘑菇花	不错的。谢谢喽
4楼 chenlifeng	不错的话，大家给点小分，精神强烈支持！
5楼水星钓鱼	感谢分享，学习