VSProjectEvents2.VSLangProjWebReferencesEvents 속성

아티클
08/22/2008

업데이트: 2007년 11월

웹 참조 이벤트에 대한 액세스를 제공하는 VSLangProjWebReferencesEvents 개체를 가져옵니다.

네임스페이스: VSLangProj80
어셈블리: VSLangProj80(VSLangProj80.dll)

구문

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

속성 값

형식: VSLangProj80.VSLangProjWebReferencesEvents

VSLangProjWebReferencesEvents 개체입니다.

예제

이 예제에서는 VSLangProjWebReferencesEvents 속성을 사용하여 특정 프로젝트에 대한 이벤트 처리 메서드를 연결합니다. 매크로 샘플을 실행하는 방법에 대한 자세한 내용은 방법: 자동화 개체 모델 코드의 예제 컴파일 및 실행을 참조하십시오.

이 매크로를 실행하기 전에 Visual Basic, Visual C# 또는 Visual J# 프로젝트를 엽니다.

' 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