为Access2007创建一个应用程序级的自定义Ribbon

核心提示：6、添加下面的代码到相同的模块中，该过程提供回调行为，为Access2007创建一个应用程序级的自定义Ribbon(3)，打开所选窗体并设置其RibbonName属性到FormNames Ribbon定制，Public Sub HandleOnAction(control As IRibbonControl)&lsqu

6、添加下面的代码到相同的模块中。该过程提供回调行为，打开所选窗体并设置其RibbonName属性到FormNames Ribbon定制。

Public Sub HandleOnAction(control As IRibbonControl)

‘ 装载指定的窗体

‘ 设置其RibbonName属性以便显示自定义UI.

DoCmd.OpenForm control.Tag

Forms(control.Tag).RibbonName = “FormNames”

End Sub

7、保存该数据库，关闭VBE。

8、如果应用程序只包含一个窗体，则创建窗体使得应用程序至少包含两个窗体。

9、确定应用程序的开启窗体，并且在设计视图中打开该窗体。

10、在属性窗口里的事件选项卡中，找到onLoad事件属性，单击属性值右侧的省略号(…)按钮，选择选项列表中的“代码生成器”，然后单击“确定”。(如果没有看到属性窗口，在设计选项卡中单击“属性表”。)

11、在VBE中，修改Form_Load过程，其代码如下所示。

Private Sub Form_Load()

CreateFormButtons

Me.RibbonName = “FormNames”

End Sub

12、在菜单“工具”中，单击“引用”，选择“Microsoft Office 12.0 Object Library”(需要对该对象库的引用来使用IRibbonControl类)，然后单击“确定”。

13、保存该数据库，关闭VBE。

14、单击“Office按钮”，然后单击“Access选项”。

15、单击“当前数据库”选项卡。

16、在应用程序选项部分，从窗体的显示窗体列表中选择启动窗体，然后单击“确定”。

17、关闭并重新打开该数据库。

启动窗体打开，带有包含显示应用程序里每个窗体的按钮组的自定义选项卡。单击任何一个按钮，Access打开相应的窗体，保持相同的自定义UI。

除了已介绍的技术外，可以通过使用COM加载项添加Ribbon定制到Access2007中。COM加载项提供添加自定义RibbonX功能作为组件包的好处，而不需要在每个应用程序中添加VBA代码。在Access2007中执行加载项就像在其它Office应用程序中一样。

注意：虽然可以使用Visual Studio 2005共享加载项模板为Access创建一个COM加载项，但不能够使用 Visual Studio 2005 Tools for Office Second Edition来为Access创建COM加载项。Access是Visual Studio 2005 Tools for Office Second Edition不支持的应用程序之一。