방법: 웹 참조 이벤트에 응답(Visual Basic)
VSLangProj 및 VSLangProj80에 정의되어 있는 환경 이벤트는 Visual C# 및 Visual Basic 프로젝트에 적용됩니다. VSLangProjWebReferencesEvents는 Visual Studio에 도입된 새 형식입니다. 이 이벤트는 Visual Basic 또는 Visual C# 프로젝트에서 웹 참조가 추가 또는 제거되거나 Visual Basic 또는 Visual C# 프로젝트에서 웹 참조의 속성이 변경될 때 발생합니다.
이 예제에서는 Visual Basic에서 VSLangProjWebReferencesEvents 속성을 사용하여 특정 프로젝트에 대한 이벤트 처리 메서드를 연결합니다.
참고
일부 Visual Studio 사용자 인터페이스 요소의 경우 다음 지침에 설명된 것과 다른 이름 또는 위치가 시스템에 표시될 수 있습니다.설치한 Visual Studio 버전과 사용하는 설정에 따라 이러한 요소가 결정됩니다.자세한 내용은 Visual Studio에서 개발 설정 사용자 지정을 참조하십시오.
Visual Basic을 사용하여 웹 참조 관련 이벤트를 처리하려면
Visual Basic에서 Visual Studio 추가 기능 프로젝트를 만듭니다.
프로젝트 메뉴에서 참조 추가, .NET 탭을 차례로 클릭하고 처음의 VSLangProj 및 VSLangProj80을 선택한 다음 확인을 클릭합니다.
Connect.vb 파일 맨 위에 Imports VSLangProj 및 Imports VSLangProj80을 추가합니다.
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 개체 소개를 참조하십시오. 여러 형식의 프로젝트에 고유한 이벤트의 전체 목록을 보려면 이벤트 개체(프로젝트 형식별)를 참조하십시오. 일반 자동화 이벤트 목록을 보려면 자동화 이벤트 개체를 참조하십시오.
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
OnConnection 메서드 바로 아래에 WebReferenceEventsSample 메서드 선언을 추가합니다.
Sub WebReferenceEventsSample(ByVal dte As DTE2) End Sub
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# 프로젝트여야 합니다. 이는 VSLangProjWebReferencesEvents 개체가 이들 프로젝트 형식에 고유하기 때문입니다.
WebReferenceEventsSample 메서드에 다음 코드를 추가하여 프로젝트를 VSProject2 개체로 캐스팅합니다.
' Cast the project to a VSProject2. vsproj = CType(proj.Object, VSProject2)
또한 자동화 모델에서 이벤트 개체를 검색하는 코드를 WebReferenceEventsSample 메서드에 추가합니다.
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 "<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 이벤트가 발생합니다.
이벤트 개체와 관련된 각 이벤트에 대한 프로시저를 추가합니다.
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
마지막으로, 추가 기능을 닫은 후 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
전체 코드는 이 항목의 예제 단원에 나와 있습니다.
빌드 메뉴에서 솔루션 빌드를 클릭하여 추가 기능을 빌드합니다.
Visual Studio IDE(통합 개발 환경)에서 Visual C# 또는 Visual Basic 프로젝트를 엽니다.
도구 메뉴에서 추가 기능 관리자를 클릭하고 추가 기능 관리자 대화 상자에서 추가 기능을 선택합니다. 확인을 클릭하여 추가 기능을 실행합니다.
VSLangProjWebReferencesEvents 이벤트 처리를 테스트하려면
예제에서 프로그래밍 방식으로 웹 서비스에 대한 참조를 추가하므로 추가 기능을 실행하면 OnAfterWebReferenceAdded 이벤트가 한 번 발생합니다.
OnWebReferenceChanged 이벤트를 테스트하려면
솔루션 탐색기에서 웹 참조 폴더를 확장합니다.
웹 서비스를 선택하고 마우스 오른쪽 단추로 클릭합니다.
드롭다운 메뉴에서 속성을 선택합니다.
속성 창의 URL 동작 콤보 상자에서 정적을 선택하여 URL 동작을 동적에서 정적으로 변경합니다.
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 클래스의 코드를 예제에 있는 코드로 변경합니다. 추가 기능을 실행하는 방법에 대한 내용은 방법: 추가 기능 관리자를 사용하여 추가 기능 제어를 참조하십시오.