ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: fanjy

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-4-19 14:40 | 显示全部楼层

五、组织回调
1、单个的回调处理
当编写XML代码时,可以指定返回回调的多种属性,例如,onAction、getLabel、getVisible、getEnabled,等等。这些属性的每一个都必须处理。下面的示例演示通过组中产生3个按钮的过程,虽然该示例以Word文档为例,但也可以在Excel中使用。
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
       <tabs>
            <tab id="rxtabDemo"
                 label="My Custom Tab"
                 insertBeforeMso="TabHome">
                 <group id="rxgrpDemo"
                        label="My Demo Group">
                     <button id="rxbtnPaste"
                             label="My Paste Button"
                             size="normal"
                             onAction="rxbtnPaste_click"
                             imageMso="Paste"
                             tag="Custom Paste Button"/>
                     <button id="rxbtnCopy"
                             label="My Copy Button"
                             size="normal"
                             onAction="rxbtnCopy_click"
                             imageMso="Copy"
                             tag="Custom Copy Button"/>
                     <button id="rxbtnCut"
                             label="My Cut Button"
                             size="normal"
                             onAction="rxbtnCut_click"
                             imageMso="Cut"
                             tag="Custom Cut Button"/>
                 </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>
每个按钮都有其onAction属性,因此如果企图对按钮添加功能,则必须处理每个属性:
'Callback for rxbtnPaste onAction
Sub rxbtnPaste_click(control As IRibbonControl)
    MsgBox "您单击了" & control.Tag, vbInformation
End Sub

'Callback for rxbtnCopy onAction
Sub rxbtnCopy_click(control As IRibbonControl)
    MsgBox "您单击了" & control.Tag, vbInformation
End Sub

'Callback for rxbtnCut onAction
Sub rxbtnCut_click(control As IRibbonControl)
    MsgBox "您单击了" & control.Tag, vbInformation
End Sub
一种可供选择的方法是一次处理多个属性。

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-4-19 14:40 | 显示全部楼层
2、使用全局回调处理
(1)全局回调处理能用于一次处理几个控件。如果以标准化方式命名全局处理,那么效果将更好,因为可以立即从单个控件中区分全局控件。
(2)使用全局回调的原因是因为某些指令可能重复,甚至当指令不重复时,对某种控件为某项操作共享相同的属性仍有好处,如onAction属性。此外,如果操作相同,那么过程能组合在单个的回调处理中。
(3)能利用这种优势减少要处理的回调数。
(4)例如,下列对象:tab,group,button,都共享一个通用的属性getLabel。如前所述,当需要对每个控件动态应用值时,不需要在XML代码中为每个控件编写getLabel回调。相反,可以在VBA过程中在单个过程内将共享任务放在一起,而且因为是回调,不需要遍历XML中指定的控件,将自动遍历控件直至所有控件有所需的值。
(5)仍以上节中的示例,在前面的XML代码中修改每个按钮的onAction属性如下:
onAction=”rxshared_click”
将产生单个的回调,用于处理具有onAction属性和共享标签的任何控件。
接着,在VBA中为每个按钮处理该回调,使用下面的一小段代码:
Sub rxshared_click(control As IRibbonControl)
    MsgBox "您单击了" & control.Tag, vbInformation
End Sub
也能使用Select Case语句分开每个按钮并赋予其特定的代码:
Sub rxshared_click(control As IRibbonControl)
Select Case control.ID
    Case “rxbtnPaste”
      ‘为rxbtnPaste按钮的代码
    Case “rxbtnCopy”
      ‘为rxbtnCopy按钮的代码
    Case “rxbtnCut”
     ‘为rxbtnCut按钮的代码
End Select
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-4-19 14:42 | 显示全部楼层
3、在Access中处理回调
在创建定制时,Access在许多方面都是独特的。
在Access中,能够使用VBA或宏处理回调。当使用Word和Excel时,宏通常指VBA指令,而Access中,宏是创建的对象。此外,因为宏有预定义指令,通常仅需一个参数。
(1)使用VBA处理回调
首先,需要引用Office 12 Object Library,否则会出现错误消息。
例如,下面的XML代码为Access中自定义选项卡/组创建一个按钮:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="rxtabDemo"
                 label="My Custom Tab"
                 insertBeforeMso="TabHomeAccess">
                 <group id="rxgrpDemo"
                        label="My Demo Group">
                        <button id="rxbtnReport"
                                label="My Report Button"
                                size="large"
                                onAction="rxbtnReport_click"
                                imageMso="CreateReport"
                                tag="Create Report"/>
                 </group>
             </tab>
        </tabs>
    </ribbon>
</customUI>
在工程中添加一个标准模块,并输入下面的代码:
Sub rxbtnReport_click(control As IRibbonControl)
    On Error GoTo Err_Handler
    DoCmd.OpenReport "MyReport", acViewDesign
    Exit Sub
Err_Handler:
    MsgBox Err.Description, vbCritical, "Err Number:" & Err.Number
End Sub
本例中,单击按钮后将在视图预览模式下打开名为MyReport的报表。
(2)使用宏处理回调
在Access 12中,macro对象是处理回调的另一种方式。
假设希望使用宏处理onAction属性,需要指定onAction属性:
onAction=”rxMacroName.objectName”
其中,rxMacroName指定在Access中创建的宏对象的名称(宏对象自身)。
objectName指在XML代码中创建的对象id(宏对象是宏名称)。
下图将有助于理解:
 
现在首先创建新的选项卡和组并在其中添加按钮:
<button id="rxbtnPaste"
                                label="My Paste Button"
                                size="normal"
                                onAction="rxsharedMacro.rxbtnPaste"
                                imageMso="Paste"
                                tag="Custom Paste Button"/>
                        <button id="rxbtnCopy"
                                label="My Copy Button"
                                size="normal"
                                onAction="rxsharedMacro.rxbtnCopy"
                                imageMso="Copy"
                                tag="Custom Copy Button"/>
                        <button id="rxbtnCut"
                                label="My Cut Button"
                                size="normal"
                                onAction="rxsharedMacro.rxbtnCut"
                                imageMso="Cut"
                                tag="Custom Cut Button"/>
然后,在Access中添加新的宏对象并将其命名为rxsharedMacro。在设计视图中打开宏,并添加三个新的宏指令。每个使用在XML代码中onAction属性的点之后的文本命名。添加宏指令:一个Beep和2个消息框。
单击自定义选项卡中的按钮,出现类似下面的消息框:

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-4-19 14:45 | 显示全部楼层

六、使UI组件无效
Ribbon的一个重要方面是使Ribbon无效或指定的控件无效。
某些操作仅当使整个Ribbon无效才能执行,而另一些操作只需通过使指定控件无效来完成。
1、无效能处理什么?为什么需要?
IRibbonUI对象包含两个方法:Invalidate和InvalidateControl。
表:IRibbonUI对象模型
方法                        用途
Invalidate()                  为更新而标记整个功能区(顺序标记其中的每个控件)
InvalidateControl(strControlID) 为更新而标记特定的控件(被更新的控件作为字符串传递到
方法的参数中)(strControlID)
理解Invalidate方法的关键是该方法使UI中每个控件都无效,意味着强制调用在UI中定义的所有回调。此外,也将导致更新所有控件,而无论其是否有回调。当使Ribbon无效时,在Ribbon中作出调用,在UI中指定的每个过程都将运行。
“刷新”指在打开工程时简单地更新在UI中已经装载的控件;“重新装载”指卸载并重新装载UI中的整个项目。
除非确实需要作用整个Ribbon,更好的选择是在执行期间的指定时刻使单个控件无效,即当需要时仅使该控件无效。
要使整个Ribbon或Ribbon中指定的控件无效,需要设置代表IRibbonUI对象的全局变量,可通过在onLoad属性中指定回调来实现:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="rxIRibbonUI_onLoad">
</customUI>
接下来,编写VBA代码处理在onLoad属性中指定的回调:
Public grxIRibbonUI As IRibbonUI
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI=ribbon
End Sub
注意,代表IRibbonUI对象的变量在标准模块的全局声明区中声明,以便于能被工程的其他部分访问。
2、使整个Ribbon无效
(1)创建一个新的Excel文件,并以启用宏的工作簿保存。
(2)使用CustomUI Editor,在工作簿文件中添加XML代码:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="rxIRibbonUI_onLoad">
    <ribbon>
        <tabs>
            <tab id="rxtabDemo"
                 label="My Custom Tab"
                 insertBeforeMso="TabHome">
                 <group id="rxgrpDemo"
                        label="My Demo Group">
                     <button id="rxbtn"
                             getLabel="rxshared_getLabel"
                             size="normal"
                             onAction="rxshared_click"
                             imageMso="FillRight"/>
                     <button id="rxbtn2"
                             getLabel="rxshared_getLabel"
                             size="normal"
                             onAction="rxshared_click"
                             imageMso="FillRight"/>
                 </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>
(3)保存并验证代码。
(4)单击“Generate Callbacks”按钮生成回调。
(5)复制回调代码并关闭该文件。
(6)在Excel中打开该工作簿,添加一个标准模块。
(7)粘贴代码到该模块中,并补充代码。
Public grxIRibbonUI As IRibbonUI
Public glngCount1 As Long
Public glngCount2 As Long
'Callback for customUI.onLoad
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
    Set grxIRibbonUI = ribbon
End Sub

'Callback for rxbtn onAction
Sub rxshared_click(control As IRibbonControl)
    grxIRibbonUI.Invalidate
End Sub

'Callback for rxbtn getLabel
Sub rxshared_getLabel(control As IRibbonControl, ByRef returnedVal)
    Select Case control.ID
        Case "rxbtn"
            returnedVal = "功能区无效:" & glngCount1 & "次."
            glngCount1 = glngCount1 + 1
        Case "rxbtn2"
            returnedVal = "功能区无效:" & glngCount2 & "次."
            glngCount2 = glngCount2 + 1
    End Select
End Sub
注意,此时单击任一按钮,两个标签均更新,如下图。因为单击按钮时代码使整个Ribbon无效,所以两个控件都无效,共享的getLabel过程为第一个按钮调用一次,又为第二个按钮所调用。
 
3、使单个控件无效
仍以上面的例子,仅使触发click事件的按钮无效。将共享的click事件和共享的getLabel事件修改如下:
Public grxIRibbonUI As IRibbonUI
Public glngCount1 As Long
Public glngCount2 As Long
'Callback for customUI.onLoad
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
    Set grxIRibbonUI = ribbon
End Sub

'Callback for rxbtn onAction
Sub rxshared_click(control As IRibbonControl)
    Select Case control.ID
        Case "rxbtn"
            glngCount1 = glngCount1 + 1
        Case "rxbtn2"
            glngCount2 = glngCount2 + 1
    End Select
    grxIRibbonUI.InvalidateControl (control.ID)
End Sub

'Callback for rxbtn getLabel
Sub rxshared_getLabel(control As IRibbonControl, ByRef returnedVal)
    Select Case control.ID
        Case "rxbtn"
            returnedVal = "功能区无效:" & glngCount1 & "次."
        Case "rxbtn2"
            returnedVal = "功能区无效:" & glngCount2 & "次."
    End Select
End Sub
此时,只会使单击的控件无效,如下图。


[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

[分享]《RibbonX:自定义Office 2007功能区》阅读笔记

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-4-19 14:56 | 显示全部楼层

<结贴>

到此为止,已经介绍完了自定义Office 2007功能区(Ribbon)所需要的基础知识,使用这五章所介绍的技术,已经能够很好地了解和知道如何实现Office 2007功能区的定制。如果要更深入的研究和更熟悉并熟练掌握Office 2007定制的详细技术和技巧及应用,则是本书后续更为精彩的内容。

本贴也到此为止。后续内容待进一步深入研读后,另开专贴呈现给大家。

TA的精华主题

TA的得分主题

发表于 2008-4-26 12:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
还真是即时 , 那么快就用 2007 了

TA的精华主题

TA的得分主题

发表于 2008-4-29 17:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢fanjy版主,真的很有用

TA的精华主题

TA的得分主题

发表于 2008-5-29 18:34 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-6-1 17:57 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-12-30 19:03 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 19:32 , Processed in 0.056507 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表