방법: 웹 참조 이벤트에 응답(Visual Basic)

  • 아티클

업데이트: 2007년 11월

VSLangProj 및 VSLangProj80에 정의된 환경 이벤트는 Visual C#, Visual Basic 및 Visual J# 프로젝트에만 적용됩니다. VSLangProjWebReferencesEvents는 Visual Studio 2005에서 처음 도입된 형식입니다. 이 이벤트는 Visual Basic, Visual C# 또는 Visual J# 프로젝트에서 웹 참조가 추가 또는 제거되거나 Visual Basic, Visual C# 또는 Visual J# 프로젝트에서 웹 참조의 속성이 변경될 때 발생합니다.

이 예제에서는 Visual Basic에서 VSLangProjWebReferencesEvents 속성을 사용하여 특정 프로젝트에 대한 이벤트 처리 메서드를 연결합니다.

참고:

표시되는 대화 상자와 메뉴 명령은 실제 설정이나 버전에 따라 도움말에서 설명하는 것과 다를 수 있습니다. 이러한 절차는 일반 개발 설정을 사용하여 개발되었습니다. 설정을 변경하려면 도구 메뉴에서 설정 가져오기 및 내보내기를 선택합니다. 자세한 내용은 Visual Studio 설정을 참조하십시오.

Visual Basic을 사용하여 웹 참조 관련 이벤트를 처리하려면

  1. Visual Basic에서 Visual Studio 추가 기능 프로젝트를 만듭니다.

  2. 프로젝트 메뉴에서 참조 추가, .NET 탭을 차례로 클릭하고 처음의 VSLangProj 및 VSLangProj80을 선택한 다음 확인을 클릭합니다.

  3. Connect.vb 파일 맨 위에 Imports VSLangProj 및 Imports VSLangProj80을 추가합니다.

  4. Connect 클래스에서 VSLangProjWebReferencesEvents 개체를 처리하는 변수를 초기화합니다.

    Public Class Connect
    Implements IDTExtensibility2
    Dim _applicationObject As DTE2
    Dim _addInInstance As AddIn
    Public WithEvents webRefEvents As _    VSLangProj80.VSLangProjWebReferencesEvents

    이 예제에서 변수의 이름은 webRefEvents입니다.

    자동화 모델에 있는 기타 개체는 프로젝트에 고유한 다른 형식의 이벤트와 관련됩니다. 예를 들어 Imports 컬렉션에 가져오기를 추가하거나 제거하면 ImportsEvents가 발생합니다. BuildManagerEvents는 사용자 지정 도구의 출력에서 빌드된 임시 어셈블리 관련 이벤트에 연관됩니다. BuildManager 개체에 대한 자세한 내용은 BuildManager 개체 소개를 참조하십시오. 여러 형식의 프로젝트에 고유한 이벤트의 전체 목록을 보려면 이벤트 개체(프로젝트 형식별)를 참조하십시오. 일반 자동화 이벤트 목록을 보려면 자동화 이벤트 개체를 참조하십시오.

  5. OnConnection 메서드에 다음 메서드 호출을 추가합니다.

    Public Sub OnConnection(ByVal application As Object, _
 ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object, _
 ByRef custom As Array) Implements IDTExtensibility2.OnConnection
    _applicationObject = CType(application, DTE2)
    _addInInstance = CType(addInInst, AddIn)
    WebReferenceEventsSample(_applicationObject)
End Sub

  6. OnConnection 메서드 바로 아래에 WebReferenceEventsSample 메서드 선언을 추가합니다.

    Sub WebReferenceEventsSample(ByVal dte As DTE2)

End Sub

  7. OnConnection 메서드 맨 위에 다음과 같은 선언을 추가합니다.

    Dim soln As Solution2 = CType(_applicationObject.Solution, Solution2)
Dim proj As Project
Dim vsproj As VSProject2
Dim webServiceRef As String
proj = soln.Projects.Item(1)

    proj = soln.Projects.Item(1)과 같은 선언을 사용하려면 이 예제를 실행할 때 Visual Studio IDE(통합 개발 환경)에 프로젝트가 열려 있어야 합니다. 특히 프로젝트는 Visual Basic, Visual C# 또는 Visual J# 프로젝트여야 합니다. 이는 VSLangProjWebReferencesEvents 개체가 이들 프로젝트 형식에 고유하기 때문입니다.

  8. WebReferenceEventsSample 메서드에 다음 코드를 추가하여 프로젝트를 VSProject2 개체로 캐스팅합니다.

    ' Cast the project to a VSProject2.
vsproj = CType(proj.Object, VSProject2)

  9. 또한 자동화 모델에서 이벤트 개체를 검색하는 코드를 WebReferenceEventsSample 메서드에 추가합니다.

    webRefEvents = vsproj.Events2.VSLangProjWebReferencesEvents

  10. 이벤트 처리기를 연결합니다.

    AddHandler webRefEvents.OnAfterWebReferenceAdded, _
 AddressOf WebReferenceAdded
AddHandler webRefEvents.OnBeforeWebReferenceRemoved, _
 AddressOf WebReferenceRemoved
AddHandler webRefEvents.OnWebReferenceChanged, _
 AddressOf WebReferenceChanged

  11. 프로젝트에 웹 참조를 추가합니다.

    ' Create a Web references folder.
MsgBox("Creating a Web references folder.", MsgBoxStyle.Information)
vsproj.CreateWebReferencesFolder()
' Add a Web reference to the folder.
' Replace the "<web reference>" with an actual Web service URL.
MsgBox("Adding a Web reference.", MsgBoxStyle.Information)
webServiceRef = "<web reference>"
vsproj.AddWebReference(webServiceRef)

    웹 서비스 참조를 프로그래밍 방식으로 프로젝트에 추가하려면 코드에서 자리 표시자 텍스트(<web reference>)를 실제 웹 서비스의 URL로 변경해야 합니다.

    이 단계를 수행하면 이 추가 기능을 실행할 때 OnAfterWebReferenceAdded 이벤트가 발생합니다.

  12. 이벤트 개체와 관련된 각 이벤트에 대한 프로시저를 추가합니다.

    Sub WebReferenceRemoved(ByVal removedRef As Object)
    MsgBox("A Web reference was removed.")
End Sub
Sub WebReferenceChanged(ByVal changedRef As Object)
    MsgBox("A Web reference was changed.")
End Sub
Sub WebReferenceAdded(ByVal addedRef As Object)
    MsgBox("A Web reference was added.")
End Sub

  13. 마지막으로, 추가 기능을 닫은 후 Visual Studio에서 창 관련 이벤트를 계속 모니터링하여 시스템이 느려지지 않도록 이벤트 처리를 사용하지 않도록 설정합니다. Visual Basic에서 이 작업은 이벤트 처리기를 Nothing으로 설정하여 수행됩니다.

    Public Sub OnDisconnection(ByVal RemoveMode As_
 Extensibility.ext_DisconnectMode, ByRef custom As System.Array)_
 Implements Extensibility.IDTExtensibility2.OnDisconnection
    webRefEvents = Nothing
End Sub

    전체 코드는 이 항목의 예제 단원에 나와 있습니다.

  14. 빌드 메뉴에서 솔루션 빌드를 클릭하여 추가 기능을 빌드합니다.

  15. Visual Studio IDE(통합 개발 환경)에서 Visual C#, Visual J# 또는 Visual Basic 프로젝트를 엽니다.

  16. 도구 메뉴에서 추가 기능 관리자를 클릭하고 추가 기능 관리자 대화 상자에서 추가 기능을 선택합니다. 확인을 클릭하여 추가 기능을 실행합니다.

VSLangProjWebReferencesEvents 이벤트 처리를 테스트하려면

  1. 예제에서 프로그래밍 방식으로 웹 서비스에 대한 참조를 추가하므로 추가 기능을 실행하면 OnAfterWebReferenceAdded 이벤트가 한 번 발생합니다.

  2. OnWebReferenceChanged 이벤트를 테스트하려면

    • 솔루션 탐색기에서 웹 참조 폴더를 확장합니다.

    • 웹 서비스를 선택하고 마우스 오른쪽 단추로 클릭합니다.

    • 드롭다운 메뉴에서 속성을 선택합니다.

    • 속성 창의 URL 동작 콤보 상자에서 정적을 선택하여 URL 동작을 동적에서 정적으로 변경합니다.

  3. OnBeforeWebReferenceRemoved 이벤트를 테스트하려면

    • 웹 서비스를 선택하고 마우스 오른쪽 단추로 클릭합니다.

    • 드롭다운 메뉴에서 삭제를 선택합니다.

예제

Imports System
Imports Microsoft.VisualStudio.CommandBars
Imports Extensibility
Imports EnvDTE
Imports EnvDTE80
Imports VSLangProj
Imports VSLangProj2
Imports VSLangProj80

Public Class Connect
    Implements IDTExtensibility2
    Dim _applicationObject As DTE2
    Dim _addInInstance As AddIn
    Public WithEvents webRefEvents As _
    VSLangProj80.VSLangProjWebReferencesEvents
    Public Sub New()
    End Sub
    Public Sub OnConnection(ByVal application As Object, _
     ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object _
    , ByRef custom As Array) Implements IDTExtensibility2.OnConnection
        _applicationObject = CType(application, DTE2)
        _addInInstance = CType(addInInst, AddIn)
        WebReferenceEventsSample(_applicationObject)
    End Sub
    Sub WebReferenceEventsSample(ByVal dte As DTE2)
        Try
            Dim soln As Solution2 = CType(_applicationObject.Solution _
            , Solution2)
            Dim proj As Project
            Dim vsproj As VSProject2
            Dim webServiceRef As String
            proj = soln.Projects.Item(1)
            ' Cast the project to a VSProject2.
            vsproj = CType(proj.Object, VSProject2)
            webRefEvents = vsproj.Events2.VSLangProjWebReferencesEvents
            AddHandler webRefEvents.OnAfterWebReferenceAdded, _
            AddressOf WebReferenceAdded
            AddHandler webRefEvents.OnBeforeWebReferenceRemoved, _
            AddressOf WebReferenceRemoved
            AddHandler webRefEvents.OnWebReferenceChanged, _
            AddressOf WebReferenceChanged
            ' Create a Web references folder.
            MsgBox("Creating a Web references folder." _
            , MsgBoxStyle.Information)
            vsproj.CreateWebReferencesFolder()
            ' Add a Web reference to the folder.
            ' Replace the place holder <web reference> with
            ' a Web service URL.
            MsgBox("Adding a Web reference.", MsgBoxStyle.Information)
            webServiceRef = "<web reference>"
            vsproj.AddWebReference(webServiceRef)
        Catch ex As System.Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Sub WebReferenceRemoved(ByVal removedRef As Object)
        MsgBox("A Web reference was removed.")
    End Sub
    Sub WebReferenceChanged(ByVal changedRef As Object)
        MsgBox("A Web reference was changed.")
    End Sub
    Sub WebReferenceAdded(ByVal addedRef As Object)
        MsgBox("A Web reference was added.")
    End Sub
    Public Sub OnDisconnection(ByVal disconnectMode As _
    ext_DisconnectMode, ByRef custom As Array) Implements _
    IDTExtensibility2.OnDisconnection
        ' Turns off Web reference event handling when the 
        ' add-in shuts down.
        webRefEvents = Nothing
    End Sub
    Public Sub OnAddInsUpdate(ByRef custom As Array) _
    Implements IDTExtensibility2.OnAddInsUpdate
    End Sub
    Public Sub OnStartupComplete(ByRef custom As Array) _
    Implements IDTExtensibility2.OnStartupComplete
    End Sub
    Public Sub OnBeginShutdown(ByRef custom As Array) _
    Implements IDTExtensibility2.OnBeginShutdown
    End Sub
End Class

코드 컴파일

이 코드를 컴파일하려면 Visual Basic에서 새 Visual Studio 추가 기능 프로젝트를 만들고 Connect 클래스의 코드를 예제에 있는 코드로 변경합니다. 추가 기능을 실행하는 방법에 대한 내용은 방법: 추가 기능 관리자를 사용하여 추가 기능 제어를 참조하십시오.

참고 항목

작업

방법: 웹 참조 이벤트에 응답(Visual C#)

기타 리소스

자동화 이벤트에 응답

이벤트에 응답(Visual Basic 및 Visual C# 프로젝트)