细品RibbonX(24)：dropDown控件详解

细品RibbonX(24)：dropDown控件详解

资料整理来自于论坛
完整版下载地址：http://download.youkuaiyun.com/download/nodeman/10264659

 

 Loading ...

 

与组合框控件相似，dropDown控件提供用户一组预定义列表以供用户从中选择。此外，能够在设计时使用XML提供的静态列表，或者在运行时通过回调动态填充列表。

组合框和下拉控件最大的不同在于组合框可以接受用户输入，而下拉控件则不行，用户只能从预定义的列表并且仅能从该列表中选择项目。

下面是一些使用下拉控件的理由：

n         不希望用户输入它们自已的信息。

n         列表不长，因此不涉及到使用“自动完成”功能。

n         没兴趣编程回调来验证用户输入数据。

1、dropDown元素必需的属性

dropDown控件需要下表1所列的id属性之一。

表1：dorpDown元素必需的属性

属性	何时使用
id	当创建自已的下拉列表时
idMso	当使用现有的Microsoft下拉列表时
idQ	当在命名空间之间创建共享的下拉列表时

2、带有回调签名的可选的静态属性和动态属性

dropDown元素可以使用下表2列出的任一insert属性。

表2：dropDown元素可选的insert属性

INSERT属性	允许值	默认值	何时使用
insertAfterMso	有效的Mso组	在组末尾插入	在Microsoft控件之后插入
insertBeforeMso	有效的Mso组	在组末尾插入	在Microsoft控件之前插入
insertAfterQ	有效的组idQ	在组末尾插入	在共享的命名空间控件之后插入
insertBeforeQ	有效的组idQ	在组末尾插入	在共享的命名空间控件之前插入

也可以为下拉列表设置下表3所列的任何或所有的属性或回调。

表3：dropDown元素可选的属性和回调

静态属性	动态属性	允许值	默认值	动态属性的VBA回调签名
enabled	getEnabled	true,false,1,0	true	Sub GetEnabled(control  As IRibbonControl, ByRef returnedVal)
image	getImage	1至1024个字符	（none）	Sub GetImage(control  As IRibbonControl, ByRef returnedVal)
imageMso	getImage	1至1024个字符	（none）	同上
（none）	getItemCount	1至1024个字符	（none）	Sub GetItemCount(control As IRibbonControl, ByRef returnedVal)
（none）	getItemID	独立的文本字符串	（none）	Sub GetItemID(control As IRibbonControl, index As Integer, ByRef id)
（none）	getItemImage	1至1024个字符	（none）	Sub GetItemImage(control  As IRibbonControl, index As Integer, ByRef returnedVal)
（none）	getItemLabel	1至1024个字符	（none）	Sub GetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
（none）	getItemScreentip	1至1024个字符	（none）	Sub GetItemScreenTip(control  As IRibbonControl, index As Integer, ByRef returnedVal)
（none）	getItemSupertip	1至1024个字符	（none）	Sub GetItemSuperTip(control  As IRibbonControl, index As Integer, ByRef returnedVal)
keytip	getKeytip	1至3个字符	（none）	Sub GetKeytip(control As IRibbonControl, ByRef returnedVal)
label	getLabel	1至1024个字符	（none）	Sub GetLabel(control  As IRibbonControl, ByRef returnedVal)
screentip	getScreentip	1至1024个字符	（none）	Sub GetScreentip(control  As IRibbonControl, ByRef returnedVal)
（none）	getSelectedItemID	独立的文本字符串	（none）	Sub GetSelectedItemID(control  As IRibbonControl, ByRef returnedVal)
（none）	getSelectedItemIndex	1至1024个字符	（none）	Sub  GetSelectedItemIndex(control As IRibbonControl, ByRef returnedVal)
showImage	getShowImage	true,false,1,0	true	Sub GetShowImage(control  As IRibbonControl, ByRef returnedVal)
showItemImage	（none）	true,false,1,0	true	（none）
ShowItemLabel	（none）	true,false,1,0	true	（none）
showLabel	getShowLabel	true,false,1,0	true	Sub GetShowLabel(control  As IRibbonControl, ByRef returnedVal)
sizeString	（none）	1至1024个字符	12	（none）
supertip	getSupertip	1至1024个字符	(none)	Sub GetSupertip(control  As IRibbonControl, ByRef returnedVal)
tag	(none)	1至1024个字符	(none)	(none)
visible	getVisible	true,false,1,0	true	Sub GetVisible(control As IRibbonControl, ByRef returnedVal)
（none）	onAction	1至1024个字符	（none）	Sub OnAction(control  As IRibbonControl, selectedId As String, selectedIndex As Integer)

3、dropDown元素允许的子对象

dropDown元素可以使用的唯一的子对象是item元素。

4、dropDown元素的父对象

在下列任何控件内都能放置dropDown控件：

n         box

n         group

5、使用内置的下拉控件

下面引用Excel内置的边框样式控件。

（1）创建一个新的.xlsx文件，并将其保存为Excel Built In dropDown Example.xlsx。

（2）关闭该文件并在CustomUI Editor中打开。

（3）输入下列XML代码：

<customUI xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>

    <ribbon startFromScratch=“false“>

        <tabs>

            <tab id=“rxtabDemo“

                 label=“Demo“

                 insertBeforeMso=“TabHome“>

                 <group id=“rxgrpDemo“

                        label=“Demo“>

                        <dropDown idMso=“BorderStyle“/>

                 </group>

            </tab>

        </tabs>

    </ribbon>

</customUI>

下图为上述代码创建的组。

 

6、创建自定义下拉控件

本示例相当有趣，因为前后使用了两个dropDown元素。与在介绍组合框控件示例时相似，第一个控件中列出了工作簿中的所有工作表。然而，在从工作簿中添加或移除工作表时，我们使用可用的回调来更新下拉列表，

第二个控件允许用户切换所选工作表的可见性：xlSheetVisible、xlSheetHidden和xlSheetVeryHidden。

（1）新建一个工作簿，以.xlsm为扩展名保存后关闭。

（2）在CustomUI Editor中打开该工作簿，并输入下列XML代码：

<customUI onLoad=“rxIRibbonUI_onLoad“xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>

    <ribbon startFromScratch=“false“>

        <tabs>

            <tab id=“rxtabDemo“

                 label=“Navigation“

                 insertBeforeMso=“TabHome“>

                 <group id=“rxgrpNavigate“

                        label=“Navigate To“>

                        <dropDown id=“rxddSelectSheet“

                                 label=“Apply To:“

                                 visible=“true“

                                 onAction=“rxddSelectSheet_click“

                                 getItemID=“rxitemddSelectSheet_getItemId“

                                 getItemCount=“rxitemddSelectSheet_getItemCount“

                                 getItemLabel=“rxitemddSelectSheet_getItemLabel“/>

                       <dropDown id=“rxddSheetVisible“

                                label=“Set To:“

                                onAction=“rxddSheetVisible_click“>

                                <item id=“rxitemddSheetVisible1“

                                       label=“Visible“/>

                                <item id=“rxitemddSheetVisible2“

                                       label=“Hidden“/>

                                <item id=“rxitemddSheetVisible3“

                                       label=“VeryHidden“/>

                      </dropDown>

               </group>

            </tab>

        </tabs>

    </ribbon>

</customUI>

生成回调签名，并复制代码后关闭CustomUI Editor。

在Excel中打开该工作簿，打开VBE并将回调签名代码粘贴到一个标准模块中。注意到，少生成了一个回调签名：getItemID，需要补充。

首先处理onLoad回调。在代码开始处添加两个变量，一个包含RibbonUI对象，另一个存放所选的工作表名：

Public RibbonUI AsIRibbonUI

Dim sSheetName As String

接着，设置onLoad回调确保RibbonUI对象在装载时被捕获：

‘customUI.onLoad回调

SubrxIRibbonUI_onLoad(ribbon As IRibbonUI)

    Set RibbonUI = ribbon

End Sub

下面的代码获取工作表数：

‘rxddSelectSheetgetItemCount回调

SubrxitemddSelectSheet_getItemCount(control As IRibbonControl, ByRef returnedVal)

    returnedVal = Worksheets.Count

End Sub

下一步，设置getItemLabel回调，返回下拉列表中每个项目的文本：

‘rxddSelectSheetgetItemLabel回调

SubrxitemddSelectSheet_getItemLabel(control As IRibbonControl, index As Integer,ByRef returnedVal)

    returnedVal = Worksheets(index + 1).Name

End Sub

注意到数组参数使用index+1，这是因为VBA默认的数组索引号基于0，而Excel默认的工作表索引是基于1。

接下来，确保为每个下拉项动态生成唯一的ID，回调代码如下：

SubrxitemddSelectSheet_getItemID(control As IRibbonControl, index As Integer,ByRef id)

    id = “rxitemddSelectSheet” & index+1

End Sub

更新rxddSelectSheet_click过程如下：

‘rxddSelectSheet onAction回调

SubrxddSelectSheet_click(control As IRibbonControl, id As String, index AsInteger)

    On Error Resume Next

    CallrxitemddSelectSheet_getItemLabel(control, index, sSheetName)

    If Err.Number <> 0 Then

        MsgBox “Sorry,that worksheet does notexist!”

        RibbonUI.InvalidateControl “rxddSelectSheet”

    End If

End Sub

已经完成动态dropDown控件的设置后，再来为静态下拉列表设置唯一的回调：

‘rxddSheetVisible onAction回调

SubrxddSheetVisible_click(control As IRibbonControl, id As String, index AsInteger)

    ‘检查已选择的工作表

    On Error Resume Next

    sSheetName = Worksheets(sSheetName).Name

    If Err.Number <> 0 Then

        MsgBox “Sorry,but you need to select avalid sheet first!”

        Exit Sub

    End If

    ‘改变工作表的可见性

    Select Case id

        Case “rxitemddSheetVisible1″

            Worksheets(sSheetName).Visible =xlSheetVisible

        Case “rxitemddSheetVisible2″

            Worksheets(sSheetName).Visible =xlSheetHidden

        Case “rxitemddSheetVisible3″

            Worksheets(sSheetName).Visible =xlSheetVeryHidden

    End Select

    If Err.Number <> 0 Then

        MsgBox “Sorry,this is the only visiblesheet.” & vbCrLf & “You cann’t hide the all!”

    End If

    On Error GoTo 0

End Sub

至此，全部代码已完成。可以测试了，如下图所示。