为Access2007创建一个应用程序级的自定义Ribbon——Office2007 用户界面(UI

作者佚名技术来源 NET编程浏览发布时间 2012-03-19

UI。要进行这样的操作，在设计或布局模式下打开窗体或报表，然后设置窗体的RibbonName属性为想要使用的Ribbon的名称。在设置该属性之前，必须选择窗体自身，而不是窗体中的任何控件或选择。

(二) 在运行时装载定制

如果想在运行时装载静态的定制，则将这些定制存储在USysRibbons表中，并且在需要时设置窗体或报表的RibbonName属性。但是，如果需要创建动态的定制，则调用Application.LoadCustomUI方法。下面的示例创建一个Ribbon定制，显示应用程序中每个窗体的按钮，处理每个按钮的onAction回调来装载请求的窗体。
创建动态的Ribbon定制
1、将前面内容中所使用的数据库装载到Access 2007中。如果数据库中只有一个窗体，则创建一个新窗体并在每个窗体中添加一至两个控件。
2、在“创建”选项卡中的“其他”组中，单击“宏”按钮的下拉列表，然后单击“模块”。
3、在VBE中的菜单“视图”中，单击“属性窗口”。
4、在“属性”窗口中，将名称(Name)属性框中模块的名称改为RibbonLoader。
5、在代码窗口中，输入下面的代码。虽然该方法不会返回值，但必须是一个函数，否则不能够从Access宏中调用。

Function CreateFormButtons()
Dim xml As String
xml = _
   “<customUI xmlns=”" http://schemas.microsoft.com/ ” & _
   “office/2006/01/customui”">” & vbCrLf & _
   “ <ribbon startFromScratch=”"false”">” & vbCrLf & _
   “    <tabs>” & vbCrLf & _
   “      <tab id=”"DemoTab”" label=”"LoadCustomUI Demo”">” & _
     vbCrLf & _
   “        <group id=”"loadFormsGroup”" label=”"Load Forms”">” & _
     vbCrLf & _
   “{0}” & vbCrLf & _
   “        </group>” & vbCrLf & _
   “      </tab>” & vbCrLf & _
   “    </tabs>” & vbCrLf & _
   “ </ribbon>” & vbCrLf & _
   “</customUI>”

Dim template As String
template = “<button id=”"load{0}Button”" ” & _
   “label=”"Load {0}”" onAction=”"HandleOnAction”" ” & _
   “tag=”"{0}”"/>” & vbCrLf

Dim formContent As String
Dim frm As AccessObject
For Each frm In CurrentProject.AllForms
    formContent = formContent & _
     Replace(template, “{0}”, frm.Name)
Next frm

xml = Replace(xml, “{0}”, formContent)
Debug.Print xml
On Error Resume Next
&lsqu

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 重新定位链接表二步走下一篇: Access 2000教程：3.8 补充内容

关于为Access2007创建一个应用程序级的自定义Ribbon——Office2007 用户界面(UI的所有评论

随机推荐