供应室护士出科小结:细品RibbonX(30):box元素详解
来源:百度文库 编辑:中财网 时间:2024/05/10 06:43:46
box元素用来在组里指定的控件周围放置一个可视的框,其主要目的是将控件作为一个单元组合在一起。
通常情况下,分配到组中的每个控件都被放置在先前的控件下面直到该列被填满,然后下一个控件被放置在其右侧列的顶行。然而,通过在框里面组合命令,可以将几个控件视作一个整体,并且一次将整个组放置在功能区。这有助于我们方便地组织显示的顺序,不会使界面混乱,或者留下一些空白。
1、box元素必需的属性
box元素需要下表1所列的id属性之一。
表1:box元素必需的属性
属性
何时使用
id
当创建自已的框时
idQ
当在命名空间之间创建共享的框时
2、带有回调签名的可选的静态属性和动态属性
虽然指定位置是可选的,但是如果选择相对于另一个元素决定框的位置,那么必须使用下表2列出的任一insert属性。
表2:box元素可选的insert属性
INSERT属性
允许值
默认值
何时使用
insertAfterMso
有效的Mso组
在组末尾插入
在Microsoft控件之后插入
insertBeforeMso
有效的Mso组
在组末尾插入
在Microsoft控件之前插入
insertAfterQ
有效的组idQ
在组末尾插入
在共享的命名空间控件之后插入
insertBeforeQ
有效的组idQ
在组末尾插入
在共享的命名空间控件之前插入
也可以为box元素设置下表3所列的可选的属性和回调。
表3:box元素可选的属性和回调
静态属性
动态属性
允许值
默认值
动态属性的VBA回调签名
boxStyle
(none)
horizontal,vertical
horizontal
(none)
visible
getVisible
true,false,1,0
true
Sub GetVisible(control
As IRibbonControl,
ByRef returnedVal)
3、box元素允许的子对象
box控件能够包含各种各样的RibbonX控件:
n box
n button
n buttonGroup
n checkbox
n comboBox
n control
n dropDown
n dynamicMenu
n editBox
n gallery
n labelControl
n menu
n splitButton
n toggleButton
注意,box控件也可以包含其它box控件,称之为嵌套。
4、box元素的父对象
在下列任何控件内都能放置box控件:
n box
n group
5、创建自定义的box元素
示例1
本示例演示使用水平的box控件的效果。
(1)创建一个新的.xlsx文件,并将其保存为Excel box Example.xlsx。
(2)关闭该文件并在CustomUI Editor中打开。
(3)输入下列XML代码:
label=“Demo“ insertBeforeMso=“TabHome“> label=“Demo Group“> boxStyle=“horizontal“ visible=“true“>
(4)保存后关闭CustomUI Editor。
(5)在Excel中重新打开该文件,下图即为上述XML代码创建的组。
创建了一个水平框将四个格式元素组合在一起,允许其作为一个单元格移动。除了允许按钮跨越一列外,水平组也在Button1和Button2的右侧创建了“空白”,而Button3和Button4则没有。
示例2
(6)关闭Excel box Example.xlsx。
(7)重新在CustomUI Editor中打开该文件。
(8)修改XML代码如下:
将
boxStyle=“horizontal“
修改为:
boxStyle=“vertical“
(9)保存后关闭CustomUI Editor。
(10)在Excel中重新打开该文件,下图即为上述XML代码创建的组。
示例3
本示例除了演示嵌套的框控件外,还将展示使用getVisible回调控制框的可视性的效果。
示例中包含两个box控件,每一个包含两个前面示例中使用的格式控件。此外,每个框都宿于其父框里,允许用户在功能区中预留垂直空间以便没有其它按钮在这些控件下面。同时,使用三个复选框来选择哪个框可见。
(1)新建一个工作簿,以.xlsm为扩展名保存后关闭。
(2)在CustomUI Editor中打开该工作簿,并输入下列XML代码:
insertBeforeMso=“TabHome“ label=“Demo“> label=“Demo Group“> boxStyle=“vertical“ getVisible=“rxboxshared_getVisible“> boxStyle=“horizontal“ getVisible=“rxboxshared_getVisible“> boxStyle=“horizontal“ getVisible=“rxboxshared_getVisible“> label=“Box 1 Visible?“ getPressed=“rxchkShared_pressed“ onAction=“rxchkShared_click“/> label=“Box 1-1 Visible?“ getPressed=“rxchkShared_pressed“ onAction=“rxchkShared_click“/> label=“Box 1-2 Visible?“ getPressed=“rxchkShared_pressed“ onAction=“rxchkShared_click“/> imageMso=“HappyFace“ label=“Reset All“ onAction=“rxbtnReset_click“/>
注意,本示例实际上共有三个box控件,其它两个嵌套在第一个中。三个控件共享回调。当然,需要能够使功能区无效以迫使box控件隐藏或显示,因此需要捕获RibbonUI对象。
(3)生成回调签名并复制后,关闭CustomUI Editor。
(4)重新打开该工作簿,打开VBE,将回调签名代码粘贴到标准模块,然后开始完善代码。
首先,在模块顶部声明公共变量:
Dim rxIRibbonUI As IRibbonUI
Dim bBox1_Visible As Boolean
Dim bBox11_Visible As Boolean
Dim bBox12_Visible As Boolean
第1行代码中的变量用于存储RibbonUI对象,能够在后面使功能区无效。其它三个变量包含不同组的可视状态。由于通过复选框控件控制,因此使用这些变量存储与每个框相关的复选框的状态。
除了在装载时捕获RibbonUI外,需要确保每个框控件是可见的。因此,onLoad回调代码如下:
‘customUI.onLoad回调
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set rxIRibbonUI = ribbon
bBox1_Visible = True
bBox11_Visible = True
bBox12_Visible = True
End Sub
接下来,设置box控件的共享的getVisible回调:
‘rxbox1,rxbox11,rxbox12 getVisible共享回调
Sub rxboxshared_getVisible(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case “rxbox1″
returnedVal = bBox1_Visible
Case “rxbox11″
returnedVal = bBox11_Visible
Case “rxbox12″
returnedVal = bBox12_Visible
End Select
End Sub
case语句评估触发回调的控件,从变量中获取合适的值并返回给RibbonUI。getPressed回调基于该变量处理复选框控件。
‘rxchkVisibleBox1,-Box11,-Box12 getPressed共享的回调
Sub rxchkShared_pressed(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case “rxchkVisibleBox1″
returnedVal = bBox1_Visible
Case “rxchkVisibleBox11″
returnedVal = bBox11_Visible
Case “rxchkVisibleBox12″
returnedVal = bBox12_Visible
End Select
End Sub
接下来,创建当单击复选框时触发的程序。修改可见的变量的值为当前“按下”状态(true或false),然后触发功能区的无效。这种无效不仅仅触发每一个box控件的getVisible回调,也确保所有的复选框控件更新:
‘rxchkVisibleBox1,-Box11,-Box12 onAction共享的回调
Sub rxchkShared_click(control As IRibbonControl, pressed As Boolean)
Select Case control.ID
Case “rxchkVisibleBox1″
bBox1_Visible = pressed
Case “rxchkVisibleBox11″
bBox11_Visible = pressed
Case “rxchkVisibleBox12″
bBox12_Visible = pressed
End Select
rxIRibbonUI.Invalidate
End Sub
最后是添加的按钮的onAction回调,便于设置每个控件为默认的可见状态:
‘rxbtnReset onAction共享回调使按钮可见
Sub rxbtnReset_click(control As IRibbonControl)
bBox1_Visible = True
bBox11_Visible = True
bBox12_Visible = True
rxIRibbonUI.Invalidate
End Sub
好了!该测试用户界面效果了。保存代码并关闭工作簿,再重新打开该工作簿,如下图所示。
试着清除复选框,相应的控件将消失。单击“Reset All”将使所有控件恢复可见。
注意,试图使用getVisible回调设置父框为visible=”false”,将不会像您想像的那样隐藏父框和所有的子控件。相反,父和子box控件将保持当前状态,控件本身是可见的并且工作,而任何试图通过回调对嵌套控件状态的修改都将忽略。这种影响将保留到父框控件的getVisible回调重新被设置为True。
隐藏父box控件的唯一办法是隐藏所有的子项。此时,父框控件将折叠并且不可见,即使其visible属性被设置为True。