Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

自定义功能区access2007\2010详解示例

时 间:2012-06-19 09:26:09
作 者:风行   ID:16058  城市:江阴
摘 要:在Access 2007、Access 2010中取消了传统的菜单,取而代之的是功能区,功能区是一种新的概念和对象,能否自定义功能区,回答是肯定的,本文介绍关于功能区的隐藏,显示以及自定义方面的简单示例。
 
正 文:

点击下载此附件


演   示:


一、系统功能区的隐藏与显示


1. 准备工作


首先,需要设置一个选项来报告执行代码时可能发生的任何错误:


l单击“Microsoft Office 按钮”,单击“Access 选项”,然后单击“高级”选项。


l在“常规”下选择“显示加载项用户接口错误”


l创建功能区专用的数据表,这个表的名称为“功能区专用”,其结构如表1所示。


1“功能区专用”表的字段



字段名

类型

说明

ID

自动编号

主键,记录标识

RibbonName

文本(20)

功能区名称

RibbonXML

备注

功能区内容(XML)格式

说明

文本(40)

功能区的说明


其中:字段名RibbonName和RibbonXML是系统要求的,必须起这样的字段名,其类型也是固定的;ID和说明是笔者加的,主要是更为方便地察看表中的信息。


1. 在模块中创建一个过程,用来加载功能区的定义,这个过程的代码如下:


Sub 加载功能区()


Dim i As Integer


Dim db As DAO.Database


Set db = Application.CurrentDb


For i = 0 To (db.TableDefs.Count - 1)


If (InStr(1, db.TableDefs(i).Name, "功能区专用")) Then


Dim rs As DAO.Recordset


Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name)


rs.MoveFirst


While Not rs.EOF


On Error Resume Next


Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value


rs.MoveNext


Wend


rs.Close


Set rs = Nothing


End If


Next i


db.Close


Set db = Nothing


End Sub


2. 隐藏系统功能区


在“功能区专用”表中输入以下内容,如表2所示:


2隐藏系统功能区记录中的数据



字段名

数据

ID

1

RibbonName

隐藏功能区

RibbonXML





说明

隐藏功能区


3. 显示系统功能区


在“功能区专用”表中加入一条记录,输入以下内容,如表3所示:


3显示系统功能区记录的数据



字段名

数据

ID

2

RibbonName

显示功能区

RibbonXML





说明

显示功能区


请注意两个记录中RibbonXML字段的第2行:



区别就是一个是"true",另一个是"false"。


startfromScratch 属性设置为 true,表示隐藏系统功能区,false表示显示系统功能区。


4. 创建一个窗体实现功能区的隐藏和显示


l新建一个窗体,窗体上放两个按钮,分别取名为“Command0”和“Command1”,标题分别为“隐藏功能区”和“显示功能区”。


l各事件的代码如下:


'按钮"Command0"的单击事件代码


Private Sub Command0_Click()


Me.RibbonName = "隐藏功能区"


End Sub


'按钮"Command1"的单击事件代码


Private Sub Command1_Click()


Me.RibbonName = "显示功能区"


End Sub


'窗体的加载事件代码


Private Sub Form_Load()


加载功能区


End Sub


l保存窗体的设计,取名为“系统功能区的隐藏与显示”。


l运行窗体,单击“隐藏功能区”就会隐藏功能区,单击“显示功能区”按钮就会显示功能区。


几点说明:


1. 将表的名称改为“USysRibbons”,系统在打开数据库时会自动加载功能区的定义;


2. 表名称改成“USysRibbons”后,就变成系统表的之一,一般情况下在导航栏中看不见,必须设置才能看到系统表。单击“Microsoft Office 按钮”,单击“Access 选项”,然后单击“当前数据库”选项,再单击“导航选项”,选择“显示系统对象”复选框。就可以看到系统表了。


3. 功能区的定义有错误时,系统会出现错误提示窗口。


二、创建应用程序级别自定义功能区


1. 一个简单的例子


在“功能区专用”表中加入两条记录:记录的数据如表4和5所示。


4 显示自定义功能区记录的数据



字段名

数据

ID

3

RibbonName

显示自定义功能区1

RibbonXML












说明

一个自定义功能区的例子


此标记将 startfromScratch 属性设置为 False,接下来,它会创建一个自定义选项卡和一个自定义组,并在该组中添加内置的粘贴(Paste)工具。


5隐藏自定义功能区记录的数据



字段名

数据

ID

4

RibbonName

隐藏自定义功能区1

RibbonXML












说明

隐藏一个自定义功能区的例子


l新建一个窗体,窗体上放两个按钮,分别取名为“Command0”和“Command1”,标题分别为“隐藏自定义1功能区”和“显示自定义1功能区”。


l各事件的代码如下:


'按钮"Command0"的单击事件代码


Private Sub Command0_Click()


Me.RibbonName = "隐藏显示自定义功能区1"


End Sub


'按钮"Command1"的单击事件代码


Private Sub Command1_Click()


Me.RibbonName = "显示自定义功能区1"


End Sub


'窗体的加载事件代码


Private Sub Form_Load()


加载功能区


End Sub


保存窗体的设计,取名为“自定义功能区1的隐藏与显示”。


2. 较复杂的例子


在“功能区专用”表中加入一条记录:记录的数据如表6所示。


 


 


 


6自定义功能区较复杂的例子



字段名

数据

ID

5

RibbonName

自定义功能区2

RibbonXML













说明

一个较复杂的自定义功能区的例子


l新建一个窗体,窗体上放一个按钮,取名为“Command0”,标题为“较复杂的自定义功能区”。


l各事件的代码如下:


'按钮"Command0"的单击事件代码


Private Sub Command0_Click()


Me.RibbonName = "自定义功能区2"


End Sub


' 窗体的加载事件代码


Private Sub Form_Load()


加载功能区


End Sub


' 在模块中加入如下过程


Sub 消息1(ByVal control As IRibbonControl)


If control.Tag = "1" Then MsgBox ("您单击了消息1" & control.id)


If control.Tag = "2" Then MsgBox ("您单击了消息2" & control.id)


End Sub


l保存窗体的设计,取名为“较复杂的自定义功能区”。


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助