Partilhar via


How to: Responder a eventos em um projeto específico (Visual Basic)

O modelo de automação inclui objetos que podem ser usados para responder a eventos de ambiente na Visual Studio o ambiente de desenvolvimento integrado (IDE). Os eventos de ambiente definidos no VSLangProj e VSLangProj80 são específicas para Visual C# e Visual Basic projetos. Por exemplo, ImportsEvents é disparado quando uma importação é adicionada ou removida de um Imports coleção.

Este exemplo usa Visual Basic para adicionar uma ReferencesEvents o manipulador de eventos, que é específico para um tipo de projeto, um suplemento do projeto. ReferencesEventssão gerados quando uma referência é alterada, adicionada ou removida de um Visual C# ou Visual Basic project.

ObservaçãoObservação

As caixas de diálogo e comandos de menu demonstradas podem ser diferentes daqueles descritos na Ajuda, dependendo das configurações ativas ou configurações de edição. Esses procedimentos foram desenvolvidos com o General Development Settings ativo. Para alterar as configurações, escolha Import and Export Settings sobre o Ferramentas menu. Para obter mais informações, consulte Trabalhando com configurações.

Para manipular eventos de referência usando Visual Basic

  1. Criar um Visual Studio projeto de suplemento no Visual Basic.

  2. Adicionar Imports VSLangProj na parte superior do arquivo Connect. vb.

  3. Sobre o projeto menu, clique em Add Reference, clique o .NET , selecione o primeiro VSLangProje clique em OK.

  4. Na classe Connect, inicializar uma variável para lidar com o ReferencesEvents objeto e outro para lidar com um OutputWindowPane.

    Public Class Connect
        Implements IDTExtensibility2
        Dim _applicationObject As DTE2
        Dim _addInInstance As AddIn
        ' Handle Reference events.
        Public WithEvents refEvents As VSLangProj.ReferencesEvents
        Private outputWinPane As OutputWindowPane
    

    Neste exemplo, a variável é chamada refEvents.

    Outros objetos no modelo de automação referem-se a outros tipos de eventos que são específicos para o projeto. Por exemplo, ImportsEvents é disparado quando uma importação é adicionada ou removida de um Imports coleção. BuildManagerEventsaplica-se para eventos relacionados a assemblies temporários criados a partir de saídas de ferramentas personalizadas. Para obter mais informações sobre BuildManager de objeto, consulte Introdução ao objeto BuildManager. Para obter uma lista completa dos eventos que são específicos para tipos de projetos, consulte Objetos de evento (específicas para tipos de projetos). Para obter uma lista de eventos de automação gerais, consulte Objetos de evento de automação.

  5. No OnConnection método, inicializar uma variável para interceptar eventos. Neste exemplo, a variável é chamada de eventos.

        Dim events As EnvDTE80.Events2
        events = CType(_applicationObject.Events, Events2)
    
  6. No OnConnection método, inicializar um OutputWindow variável.

        Dim outputWindow As OutputWindow
        outputWindow = CType(_applicationObject.Windows.Item _
        (Constants.vsWindowKindOutput).Object, EnvDTE.OutputWindow)
        outputWinPane = outputWindow.OutputWindowPanes.Add_
        ("Reference Event Information ")
    
  7. Também no OnConnection método, recuperar os objetos de eventos do modelo de automação.

    refEvents = CType(events.GetObject("CSharpReferencesEvents"),_
     ReferencesEvents)
    

    Visual Studioconecta-se automaticamente o manipulador do método porque a declaração de variável de objeto usa a WithEvents (Visual Basic) o manipulador.

    Neste exemplo o ReferencesEvents são específicas para Visual C# projetos. Para responder a eventos que são específicos para Visual Basic eventos, substitua a seqüência de caracteres CSharpReferencesEvents com VBReferencesEvents. Para obter mais informações sobre como determinar as cadeias de caracteres a ser usado para eventos que são específicos para diferentes tipos de projetos, consulte Objetos de evento (específicas para tipos de projetos).

  8. Adicione os procedimentos para cada evento relacionados ao objeto de evento. Por exemplo, para manipular o evento que ocorre quando uma referência é adicionada, use:

    Sub ReferenceAdded(ByVal addedRef As VSLangProj.Reference)_
        Handles refEvents.ReferenceAdded
        outputWinPane.OutputString_
        ("ReferencesEvents.ReferenceAdded" & ControlChars.Lf)
        outputWinPane.OutputString("The reference to " _
        & addedRef.Name & " was added." & ControlChars.Lf)
    End Sub
    

    No caso de ReferencesEvents, você deve ter os eventos definidos para ReferenceAdded, ReferenceRemoved, ReferenceChanged, como mostra a listagem completa do exemplo a seguir.

  9. Finalmente, para evitar Visual Studio da redução do seu sistema, continuando para monitorar eventos de janela depois de fechar o suplemento, você deve desativar tratamento de evento. Em Visual Basic, isso é feito definindo-se o manipulador de eventos para Nothing.

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

    Isso desativa o tratamento de eventos se o suplemento ou o IDE for desligado enquanto o add-in ainda está em execução. Quando o IDE for desligado, o todos os suplementos em execução são desligados automaticamente primeiro.

Exemplo

O exemplo a seguir é um basic Visual Studio add-in que demonstra como interceptar e manipular Visual C# eventos de referência em Visual Studio. Sempre que ocorre um evento de referência, uma mensagem de notificação é enviada para o saída janela.

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

Public Class Connect
    Implements IDTExtensibility2
    Dim _applicationObject As DTE2
    Dim _addInInstance As AddIn
    ' Handle Reference events.
    Public WithEvents refEvents As VSLangProj.ReferencesEvents
    Private outputWinPane As OutputWindowPane
Public Sub OnBeginShutdown(ByRef custom As System.Array) _
 Implements Extensibility.IDTExtensibility2.OnBeginShutdown
End Sub

Public Sub OnAddInsUpdate(ByRef custom As System.Array) _
 Implements Extensibility.IDTExtensibility2.OnAddInsUpdate
End Sub

Public Sub OnStartupComplete(ByRef custom As System.Array) _
 Implements Extensibility.IDTExtensibility2.OnStartupComplete
End Sub

Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) _
 Implements Extensibility.IDTExtensibility2.OnDisconnection
    ' Turns off reference event handling when the add-in shuts down.
    refEvents = Nothing
End Sub

Public Sub OnConnection(ByVal application As Object, _
 ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef _
 custom As System.Array) Implements _
 Extensibility.IDTExtensibility2.OnConnection

    _applicationObject = CType(application, EnvDTE80.DTE2)
    _addInInstance = CType(addInInst, EnvDTE.AddIn)

    Dim events As EnvDTE80.Events2
    events = CType(_applicationObject.Events, Events2)
    ' Send event messages to the Output window.
    Dim outputWindow As OutputWindow
    outputWindow = CType(_applicationObject.Windows.Item _
    (Constants.vsWindowKindOutput).Object, EnvDTE.OutputWindow)
    outputWinPane = outputWindow.OutputWindowPanes.Add _
    ("Reference Event Information ")

    ' Retrieve the event objects from the automation model.
    ' Visual Basic automatically connects the method handler since 
    ' the object variable declaration uses the 'WithEvents' handler.
    refEvents = CType(events.GetObject("CSharpReferencesEvents"), _
    ReferencesEvents)
End Sub
    ' Handle all of the various reference-related events.
    Sub ReferenceRemoved(ByVal removedRef As VSLangProj.Reference) _
    Handles refEvents.ReferenceRemoved
    outputWinPane.OutputString("ReferencesEvents.ReferenceRemoved" _
    & ControlChars.Lf)
    outputWinPane.OutputString("The reference to " & removedRef.Name _
    & " was removed." & ControlChars.Lf)
End Sub

Sub ReferenceChanged(ByVal changedRef As VSLangProj.Reference) _
    Handles refEvents.ReferenceChanged
    outputWinPane.OutputString("ReferencesEvents.ReferenceChanged" _
    & ControlChars.Lf)
    outputWinPane.OutputString("The reference to " & changedRef.Name _
    & " was changed." & ControlChars.Lf)
End Sub
Sub ReferenceAdded(ByVal addedRef As VSLangProj.Reference) _
    Handles refEvents.ReferenceAdded
    outputWinPane.OutputString("ReferencesEvents.ReferenceAdded" _
    & ControlChars.Lf)
    outputWinPane.OutputString("The reference to " & addedRef.Name _
    & " was added." & ControlChars.Lf)
End Sub

End Class

Compilando o código

Para compilar esse código, crie um novo Visual Studio projeto de suplemento no Visual Basic e substitua o código da classe de conectar-se com o código de exemplo. Para obter informações sobre como executar um suplemento, consulte Como: controle de Adicionar-</c0>.

Consulte também

Tarefas

How to: Responder a eventos em um projeto específico (Visual C#)

Referência

Declaração Imports (Tipo e Namespace .NET)

Outros recursos

Respondendo a eventos de automação

Respondendo a eventos (Visual Basic e projetos do Visual C#)