References.ItemAdded 事件 (Access)

当在 Visual Basic 中向项目添加引用时，ItemAdded 事件发生。

语法

表达式。ItemAdded (引用)

表达 一个代表 References 对象的变量。

参数

名称	必需/可选	数据类型	说明
Reference	必需	Reference	添加到项目中的引用。

备注

ItemAdded 事件适用于 References 集合。 它与控件、窗体或报表不关联，大多数其他事件也不相关。 因此，若要为 ItemAdded 事件过程创建过程定义，必须使用特殊语法。

ItemAdded 事件在发生时只能运行事件过程;它无法运行宏。

该事件仅在从代码添加引用时发生。 从“引用”对话框添加引用时不会发生这种情况，当“模块”窗口是活动窗口时，可以通过选择“工具”菜单上的“引用”来获取。

示例

下面的示例包含 ItemAdded 和 ItemRemoved 事件的事件过程。 若要尝试此示例，请先通过选择“插入”菜单上的“类模块”来创建新的类模块。 将以下代码粘贴到类模块中，并将模块另存为 RefEvents。

' Declare object variable to represent References collection. 
Public WithEvents evtReferences As References 
 
' When instance of class is created, initialize evtReferences 
' variable. 
Private Sub Class_Initialize() 
 Set evtReferences = Application.References 
End Sub 
 
' When instance is removed, set evtReferences to Nothing. 
Private Sub Class_Terminate() 
 Set evtReferences = Nothing 
End Sub 
 
' Display message when reference is added. 
Private Sub evtReferences_ItemAdded(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " added." 
End Sub 
 
' Display message when reference is removed. 
Private Sub evtReferences_ItemRemoved(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " removed." 
End Sub

以下 Function 过程添加指定的引用。 添加引用时，将在 RefEvents 类中定义的 ItemAdded 事件过程运行。

' Create new instance of RefEvents class. 
Dim objRefEvents As New RefEvents 
 
' Pass file name and path of type library to this procedure. 
Function AddReference(strFileName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_AddReference 
 ' Create new reference on References object variable. 
 Set ref = objRefEvents.evtReferences.AddFromFile(strFileName) 
 AddReference = True 
 
Exit_AddReference: 
 Exit Function 
 
Error_AddReference: 
 MsgBox Err & ": " & Err.Description 
 AddReference = False 
 Resume Exit_AddReference 
End Function

支持和反馈

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