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 支援與意見反應。