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

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

来源:www.accessoft.com  点击数:24189  　 | 收藏 | 复制

时　间: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源码网店
【打印此文】【关闭窗口】

常见问答:

技术分类:

相关资源:

源码示例

学习心得

最新文章

专栏作家

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