References.ItemRemoved 事件 (存取)

ItemRemoved 事件發生時從專案中移除參照。

語法

表達。ItemRemoved (參考)

詞 代表 References 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Reference	必要	Reference	從專案中移除的參照

註解

ItemRemoved 事件適用於 References 集合。 它與控制項、表單或報表無關，就像大多數其他事件一樣。 因此，若要建立 ItemRemoved 事件程序的程式定義，您必須使用特殊語法。

ItemRemoved 事件只能在發生時執行事件程式;它無法執行巨集。

This event occurs only when you remove a reference from code. 當您從「參考」對話方塊中移除參考時，不會發生此情況，當「模組」視窗是作用中視窗時，可透過在「工具」功能表上選擇「參考」來取得。

範例

下列範例中包含 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

下列 函式 程序會移除指定的參考。 移除參考時，會執行 RefEvents 類別中定義的 ItemRemoved 事件程式。

例如，若要移除月曆控制項的參照，您可以傳遞 "MSACAL" 字串。

Function RemoveReference(strRefName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_RemoveReference 
 ' Return object representing existing reference. 
 Set ref = objRefEvents.evtReferences(strRefName) 
 ' Remove reference from collection. 
 objRefEvents.evtReferences.Remove ref 
 RemoveReference = True 
 
Exit_RemoveReference: 
 Exit Function 
 
Error_RemoveReference: 
 MsgBox Err & ": " & Err.Description 
 RemoveReference = False 
 Resume Exit_RemoveReference 
End Function

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。