Application.LoadCustomUI 方法 (Access)

加载代表自定义功能区的 XML 标记。

语法

表达式。LoadCustomUI (CustomUIName、 CustomUIXML)

表达 返回 Application 对象的表达式。

参数

备注

若要创建并使功能区可供访问，首先应在一个过程调用 LoadCustomUI 方法，并传递功能区和 XML 自定义标记的名称与数据库中创建一个模块。 XML 标记可以来自通过表创建的 Recordset 对象、数据库外部的源（如必须解析为 String 的 XML 文件），或者来自直接嵌入过程内部的 XML 标记。

使用多个调用 LoadCustomUI 方法，只要每个功能区的名称和组成功能区选项卡的 id 属性是唯一传递不同的 XML 标记，可以使不同的功能区可用。

完成此程序后，使用 RunCode 操作创建调用该程序的 AutoExec 宏。 That way, when the application is started, the LoadCustomUI method is automatically executed and all of the custom ribbons are made available to the application.

示例

下面的代码示例创建 记录集 从任何表包含单词"功能区"的名称中。 然后，它调用 LoadCustomUI 方法来加载功能区，使其可供数据库使用。 最后，它将关闭记录集和 数据库 对象的引用。

Function LoadRibbons() 
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, "Ribbons")) Then 
 Dim rs As DAO.Recordset 
 Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name) 
 rs.MoveFirst 
 
 While Not rs.EOF 
 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 Function

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。