为Access2007创建一个运用程序级的自定义Ribbon——Office2007

为Access2007创建一个运用程序级的自定义Ribbon——Office2007

为2007创建一个运用程序级的自定义Ribbon

(一) 创建一个 Access2007 运用程序级的自定义Ribbon

1、开启Access2007，打开一个已存在的或创建一个新数据库。
2、单击“按钮”，单击“Access选项”，然后单击“高级”选项卡。
3、在“常规”局部，抉择选项“显示加载项用户接口谬误”(在不同的运用程序中，该选项能够在不同的地位)。
4、单击“确定”关闭Access选项对话框。
接上去，创建一个蕴含自定义标记的表。
5、在Access2007中，右键单击导航窗格，单击“导航选项”，选中“显示对象”前的复选框。(除非设置了该选项，否则将不能够在导航窗格中查看USysRibbons表。)单击“确定”按钮，Access系统表将出如今导航窗格中。
6、在“创建”选项卡中，单击“表设计”。
7、在表中减少下面的字段。
表：在USysRibbons表中定义的字段

字段称号 数据类型
ID 主动编号
RibbonName 文本
RibbonXml 备注

8、抉择ID字段，在“设计”选项卡中抉择“主键”。
9、单击“Office按钮”，然后单击“保存”，将新表命名为USysRibbons。
10、右键单击USysRibbons选项卡，然后单击“数据表视图”。
11、减少下面的数据到所创建的字段中。
表：USysRibbons表数据

字段称号 值
ID (主动编号)
RibbonName HideData
RibbonXml Xml

<customUI xmlns=”“>
  <ribbon startFromScratch=”false”>
    <tabs>
      <tab idMso=”TabCreate” visible=”false” />
      <tab id=”dbCustomTab” label=”A Custom Tab” visible=”true”>
          <group id=”dbCustomGroup” label=”A Custom Group”>
              <control idMso=”Paste” label=”Built-in Paste” enabled=”true”/>
          </group>
       </tab>
     </tabs>
   </ribbon>
</customUI>
这段标记设置startfromScratch属性为False，然后隐藏内置的“创建”选项卡。接着，创建一个自定义选项卡和自定义组，并将内置的粘贴控件减少到组中。
12、关闭该表。
13、关闭并重新打开数据库。
14、单击“Office 按钮”，然后单击“Access选项”。
15、单击“以后数据库”选项卡，向下滚动到“性能区和工具栏选项”局部。
16、在“性能区称号”下拉列表中，抉择“HideData”，单击“确定”按钮。
17、关闭并重新打开该数据库。
此时，“创建”选项卡已不在性能区中，Fluent UI包括了“A Custom Tab”选项卡，其中蕴含“A Custom Group”组，带有内置的“粘贴”按钮。
18、要恢复性能区，则需求打开“Access选项”对话框，删除“性能区称号”选项中的内容，然后关闭并重新打开数据库，此时Access2007将显示其缺省的Fluent UI。
留意：也可能从USysRibbons表中利用一个性能区，为指定的窗体或报表提供UI。要停止这样的操作，在设计或规划形式下打开窗体或报表，然后设置窗体的RibbonName属性为想要利用的Ribbon的称号。在设置该属性之前，必须抉择窗体本身，而不是窗体中的任何控件或抉择。

(二) 在运转古装载定制

假设想在运转古装载静态的定制，则将这些定制存储在USysRibbons表中，并且在需求时设置窗体或报表的RibbonName属性。然而，假设需求创建动态的定制，则调用Application.LoadCustomUI方法。下面的示例创建一个Ribbon定制，显示运用程序中每个窗体的按钮，解决每个按钮的onAction回调来装载申请的窗体。
创建动态的Ribbon定制
1、将后面内容中所利用的数据库装载到Access 2007中。假设数据库中只要一个窗体，则创建一个新窗体并在每个窗体中减少一至两个控件。
2、在“创建”选项卡中的“其余”组中，单击“宏”按钮的下拉列表，然后单击“模块”。
3、在E中的菜单“视图”中，单击“属性窗口”。
4、在“属性”窗口中，将称号(Name)属性框中模块的称号改为RibbonLoader。
5、在代码窗口中，输入下面的代码。只管该方法不会前往值，但必须是一个函数，否则不可以从Access宏中调用。