VSWebSiteEvents (Interfaz)

Artículo
10/07/2008

Actualización: noviembre 2007

Proporciona acceso a las colecciones de eventos en el proyecto de sitio Web.

Espacio de nombres: VsWebSite
Ensamblado: VsWebSite.Interop (en VsWebSite.Interop.dll)

Sintaxis

<GuidAttribute("9F1B1C2C-FA11-44AB-A7DA-926FF1927C70")> _
Public Interface VSWebSiteEvents

Dim instance As VSWebSiteEvents

[GuidAttribute("9F1B1C2C-FA11-44AB-A7DA-926FF1927C70")]
public interface VSWebSiteEvents

[GuidAttribute(L"9F1B1C2C-FA11-44AB-A7DA-926FF1927C70")]
public interface class VSWebSiteEvents

public interface VSWebSiteEvents

Comentarios

Se tiene acceso a esta interfaz con la propiedad VSWebSiteEvents de un objeto VSWebSite, que sólo se puede obtener a través de una referencia al proyecto Visual Studio actual, como en el ejemplo siguiente:

Dim ws As VsWebSite.VSWebSite = DTE.Solution.Projects.Item(1).Object

Nota:
La funcionalidad proporcionada por esta clase está disponible en todas las versiones de Visual Studio a partir de Visual Studio 2005. No está disponible en Visual Web Developer Express.

Ejemplos

El siguiente ejemplo de módulo de macro muestra cómo suscribirse a los eventos VSWebSite. Para utilizar el módulo, abra un proyecto de sitio Web en Visual Studio y, en el menú Herramientas, abra el IDE de la macro. Cree un nuevo módulo y pegue el código de ejemplo en el módulo.

También debe agregar al módulo una referencia al ensamblado VsWebSite.Interop. Para inicializar la suscripción de eventos, coloque el cursor en el método InitEvents() y presione F5. Para probar cada evento, lleve a cabo la acción especificada en su proyecto de sitio Web. Para obtener más información, vea Cómo: Controlar eventos en una macro.

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports VsWebSite
Imports System.Diagnostics

Public Module VsWS_Events
    ' Initialize the VsWebSite and the Events
    Sub InitAssemblyRefsEvents()
        ' Get a reference to the first Web site 
        ' in the current solution
        Dim ws As VsWebSite.VSWebSite = _
            DTE.Solution.Projects.Item(1).Object

        ' Attach the Web site events to module events
        AssemblyRefsEvents = _
            ws.VSWebSiteEvents.AssemblyReferencesEvents
    End Sub

    ' Declare the event
    ' The macro IDE requires the attribute 
    ' in order to trap the events
    <System.ContextStaticAttribute()> _
    Public WithEvents AssemblyRefsEvents As _
        VsWebSite.AssemblyReferencesEvents

    <System.ContextStaticAttribute()> _
    Public WithEvents MiscEvents As _
        VsWebSite.WebSiteMiscEvents

    <System.ContextStaticAttribute()> _
    Public WithEvents WebRefsEvents As _
        VsWebSite.WebReferencesEvents

    <System.ContextStaticAttribute()> _
    Public WithEvents WebSvcsEvents As _
        VsWebSite.WebServicesEvents

    ' Handler for the AssemblyReferenceAdded event
    ' Test: Add an Assembly Reference to your Web site project
    Private Sub AssemblyRefAdded _
        (ByVal ref As VsWebSite.AssemblyReference) _
            Handles AssemblyRefsEvents.AssemblyReferenceAdded

        ' Display the name of the added reference
        MsgBox("Assembly Added: " & ref.Name)
    End Sub

    ' Handler for the After Refresh Folder event
    ' Test: Refresh a folder in your Web site project
    Private Sub AfterRefresh _
        (ByVal ref As Object) _
            Handles MiscEvents.OnAfterFolderRefresh

        ' Display the folder as text
        MsgBox("Folder Refreshed: " & ref.ToString())
    End Sub

    ' Handler for the Web Reference Added event
    ' Test: Add a Web Reference to your Web site project
    Private Sub WebRefAdded _
        (ByVal ref As VsWebSite.WebReference) _
            Handles WebRefsEvents.WebReferenceAdded

        ' Display the name of the added reference
        MsgBox("Web Reference Added: " & ref.Name)
    End Sub

    ' Handler for the Web Service Added event
    ' Test: Add a Web service to your Web site project
    Private Sub WebSvcAdded _
        (ByVal ref As VsWebSite.WebService) _
            Handles WebSvcsEvents.WebServiceAdded

        ' Display the name of the added item
        MsgBox("Web Service Added: " & ref.Name)
    End Sub
End Module