How to: Respond to Web References Events (Visual Basic)

Create a Visual Studio add-in project in Visual Basic.

On the Project menu, click Add Reference, click the .NET tab, select the first VSLangProj and VSLangProj80 and click OK.

Add Imports VSLangProj and Imports VSLangProj80 to the top of the Connect.vb file.

In the Connect class, initialize a variable to handle the VSLangProjWebReferencesEvents object.

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

In this example, the variable is named webRefEvents.

Other objects in the automation model relate to other types of events that are specific to the project. For example, ImportsEvents is raised when an import is added to or removed from an Imports collection. BuildManagerEvents applies to events related to temporary assemblies built from outputs of custom tools. For more information on BuildManager object, see Introduction to the BuildManager Object. For a complete list of the events that are specific to types of projects, see Event Objects (Specific to Types of Projects). For a list of general automation events, see Automation Event Objects.

Add the following method call to the OnConnection method.

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

Add the WebReferenceEventsSample method declaration directly below the OnConnection method.

Sub WebReferenceEventsSample(ByVal dte As DTE2)

End Sub

Add the following declarations to the top of the WebReferenceEventsSample method.

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)

The declaration proj = soln.Projects.Item(1) requires that a project is open in the Visual Studio integrated development environment (IDE) when you run this example. In particular, the project must be a Visual Basic or Visual C# project because the VSLangProjWebReferencesEvents object is specific to those project types.

Cast the project to a VSProject2 object by adding the following code to the WebReferenceEventsSample method.

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

Also in the WebReferenceEventsSample method, retrieve the event objects from the automation model.

webRefEvents = vsproj.Events2.VSLangProjWebReferencesEvents

Connect the events handlers.

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

Add a Web reference to the project.

' 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)

To programmatically add a Web service reference to the project, you must replace the placeholder text, <web reference>, in the code with the URL of an actual Web service.

This step causes the OnAfterWebReferenceAdded event to fire when you run this add-in.

Add procedures for each event related to the event object.

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

Finally, to prevent Visual Studio from slowing your system by continuing to monitor window-related events after you close the add-in, disable event handling. In Visual Basic, this is done by setting the event handler to Nothing.

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

The complete code is listed in the Example section of this topic.

To build the add-in, click Build Solution on the Build menu.

Open a Visual C# or Visual Basic project in the Visual Studio integrated development environment (IDE).

On the Tools menu, click Add-in Manager, and select your add-in from the Add-In Manager dialog box. Click OK to run your add-in.

The OnAfterWebReferenceAdded event fires once when you run the add-in, because the example adds a reference to a Web service programmatically.

To test the OnWebReferenceChanged event:

• Expand the Web References folder in Solution Explorer.

• Select the Web service and right-click it.

• Select Properties from the drop-down menu.

• In the Properties window, change the URL behavior from dynamic to static by selecting Static from the URL Behavior combo box.

To test the OnBeforeWebReferenceRemoved event:

• Select the Web service and right-click it.

• Select Delete from the drop-down menu.