WPS Office2007下载
首页 >> 技术文章 >> Access2007

Access 2007功能区运用祥细讲解

二.编写回调函数

回调函数的目的是完成功能区上控件所执行的功能。在上一篇文章中的 XML 内容中，第一行：

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

onLoad 属性值为 onLoadRibbon，即表示在加载功能区时调用 onLoadRibbon 函数，这个函数要用 VBA 来进行书写。

一、建立 Access 应用程序
新建一个数据库，命名为功能区.accdb，导入 Northwind2007.accdb 数据库中所有对象（示例中要用一些对象）。按 Alt+F11 键进入 VBE。为了使用功能区对象，首先必须引用 Microsoft Office 12.0 Object Library。

二、建立模块

为了统一管理，将所有回调函数放在同一个模块中，在 VBE 中新建一个模块，命名为 basRibbonCallbacks。为了以后能方便地使用自定义的功能区对象，定义一个全局对象变量 gobjRibbon，并 onLoad 指定的回调函数 onLoadRibbon 中进行赋值。

 1Option Compare Database
 2Option Explicit
 3
 4' ------------------------------
 5' 本模块包含 Ribbon 回调子程序
 6' ------------------------------
 7
 8Public gobjRibbon As IRibbonUI
 9
10' 自定义 Ribbon 加载时事件处理
11Public Sub onLoadRibbon(Ribbon As IRibbonUI)
12    ' 将自定义 Ribbon 对象设置为全局对象
13    
14    Set gobjRibbon = Ribbon
15End Sub

实现功能区中的“打开罗斯文商贸”控件的onOpenFormEdit 回调函数，通过功能区中的 Tag 属性实现传递要打开的窗体名，在本例中，<button id="cmdHome" label="打开罗斯文商贸" imageMso="MeetingsWorkspace" size="large" onAction="onOpenFormEdit" tag="Home"/>，cmdHome 按钮控件的 Tag 属性为“Home”，指定要打开的窗体为“Home”。

1' 通过 Ribbon 中的 Tag 属性实现传递要打开的窗体
2Public Sub onOpenFormEdit(control As IRibbonControl)
3    ' 以编辑方式打开窗体
4    DoCmd.OpenForm control.Tag, , , , acFormEdit
5End Sub

实现功能区中的“关闭数据库”的onCloseDatabase 回调函数。

1Public Sub onCloseDatabase(control As IRibbonControl)
2    DoCmd.CloseDatabase
3End Sub

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

第1页 | 第2页 | 第3页 | 第4页

时间:2007-9-10 14:31:25,点击:0【打印】【关闭】

上一篇:Microsoft Office Access 2007以 PDF ..
下一篇:如何利用用快捷键来访问ACCESS2007的功能区..
【OfficeBa论坛】：阅读本文时遇到了什么问题，可以到论坛进行交流！Excel专家邮件：342327115@qq.com（大家在Excel使用中遇到什么问题，可以咨询此邮箱）。

【声明】:以上文章或资料除注明为Office吧自创或编辑整理外，均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的，不存在任何商业考虑。如有任何异议，请与本站联系，联系邮箱：thinkou@126.com，本站确认后将立即撤下。谢谢您的支持与理解！

相关评论

我要评论

查看所有评论内容

评论内容