VSProjectEvents2.VSLangProjWebReferencesEvents-Eigenschaft

Artikel
08/23/2008

Aktualisiert: November 2007

Ruft ein VSLangProjWebReferencesEvents-Objekt ab, das Zugriff auf Webverweisereignisse ermöglicht.

Namespace: VSLangProj80
Assembly: VSLangProj80 (in VSLangProj80.dll)

Syntax

ReadOnly Property VSLangProjWebReferencesEvents As VSLangProjWebReferencesEvents

Dim instance As VSProjectEvents2
Dim value As VSLangProjWebReferencesEvents

value = instance.VSLangProjWebReferencesEvents

VSLangProjWebReferencesEvents VSLangProjWebReferencesEvents { get; }

property VSLangProjWebReferencesEvents^ VSLangProjWebReferencesEvents {
    VSLangProjWebReferencesEvents^ get ();
}

function get VSLangProjWebReferencesEvents () : VSLangProjWebReferencesEvents

Eigenschaftenwert

Typ: VSLangProj80.VSLangProjWebReferencesEvents

Ein VSLangProjWebReferencesEvents-Objekt.

Beispiele

In diesem Beispiel werden Ereignisbehandlungsmethoden für ein bestimmtes Projekt unter Verwendung der VSLangProjWebReferencesEvents-Eigenschaft verbunden. Weitere Informationen zum Ausführen von Makrobeispielen finden Sie unter Gewusst wie: Kompilieren und Ausführen der Codebeispiele für das Automatisierungsobjektmodell.

Öffnen Sie ein Visual Basic-, Visual C#- oder Visual J#-Projekt, bevor Sie dieses Makro ausführen.

' Macro code.
' Connects trivial methods to the OnAfterWebReferenceAdded,
' OnBeforeWebReferenceRemoved, and OnWebReferenceChanged
' events of the first project in the solution.
' The first project is a Visual Basic, C#, or J# rpoject.
Imports VSLangProj
Imports VSLangProj80
Sub ConnectWebEvents()
    Dim proj As Project = DTE.Solution.Projects.Item(1)
    Dim vsproj As VSProject2 = CType(proj.Object, VSProject2)
    Dim refEvents As VSLangProjWebReferencesEvents = _
    vsproj.Events2.VSLangProjWebReferencesEvents
    AddHandler refEvents.OnAfterWebReferenceAdded, _
    AddressOf WebReferenceAdded
    AddHandler refEvents.OnBeforeWebReferenceRemoved, _
    AddressOf WebReferenceRemoved
    AddHandler refEvents.OnWebReferenceChanged, _
    AddressOf WebReferenceChanged
End Sub
Sub WebReferenceRemoved(ByVal removedRef As Object)
    MsgBox("The reference for " & removedRef.Name & " was removed.")
End Sub
Sub WebReferenceChanged(ByVal changedRef As Object)
    MsgBox("The reference for " & changedRef.Name & " was changed.")
End Sub
Sub WebReferenceAdded(ByVal addedRef As Object)
    MsgBox("The reference for " & addedRef.Name & " was added.")
End Sub

Berechtigungen

Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.