access2007\2010自定义功能区的方法

时　间:2011-10-01 08:38:51
作　者:王樵民   ID：5203  城市：郑州
摘　要:在Access 2007、Access 2010中取消了传统的菜单，取而代之的是功能区，功能区是一种新的概念和对象，能否自定义功能区，回答是肯定的，本文介绍关于功能区的隐藏，显示以及自定义方面的简单示例，供网友参考。
正　文:

Access2007\2010自定义功能区的方法

在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	<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">   <ribbon startFromScratch="true">   </ribbon> </customUI>
说明	隐藏功能区

3.         显示系统功能区

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

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

字段名	数据
ID	2
RibbonName	显示功能区
RibbonXML	<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">   <ribbon startFromScratch="false">   </ribbon> </customUI>
说明	显示功能区

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

<ribbon startFromScratch="true">和<ribbon startFromScratch="false">

区别就是一个是"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	<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="dbCustomTab" label="自定义选项卡" visible="true"> <group id="dbCustomGroup" label="自定义组"> <control idMso="Paste" label="内置粘贴" enabled="true"/> </group> </tab> </tabs> </ribbon> </customUI>
说明	一个自定义功能区的例子

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

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

字段名	数据
ID	4
RibbonName	隐藏自定义功能区1
RibbonXML	<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="dbCustomTab" label="自定义选项卡" visible="false"> <group id="dbCustomGroup" label="自定义组"> <control idMso="Paste" label="内置粘贴" enabled="true"/> </group> </tab> </tabs> </ribbon> </customUI>
说明	隐藏一个自定义功能区的例子

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	<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="frm2CustomTab" label="自定义功能区2 命令按钮" visible="true"> <group id="frm2CustomGroup" label="自定义组"> <button id="myButton1" label="显示消息1" enabled="true" onAction="消息1" tag="1" /> <button id="myButton2" label="显示消息2" enabled="true" onAction="消息1" tag="2" /> </group> </tab> </tabs> </ribbon> </customUI>
说明	一个较复杂的自定义功能区的例子

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源码网店