Событие References.ItemAdded (Access)

Событие ItemAdded возникает при добавлении ссылки в проект из Visual Basic.

Синтаксис

выражение. ItemAdded (справка)

выражение Переменная, представляющая объект References .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Reference	Обязательный	Reference	Ссылка, добавленная в проект.

Примечания

Событие ItemAdded применяется к коллекции "Ссылки ". В отличие от большинства других событий, оно не связано с элементом управления, формой или отчетом. Поэтому для создания определения процедуры для события 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

Следующая процедура функции добавляет указанную ссылку. При добавлении ссылки выполняется процедура события ItemAdded , определенная в классе RefEvents .

' 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 и обратная связь.