Como expor um suplemento no menu Ferramentas (Visual Basic)
Os suplementos do Visual Studio foram substituídos no Visual Studio 2013. Você deve atualizar seus suplementos para as extensões VSPackage. Para obter mais informações sobre atualização, consulte Perguntas frequentes: convertendo suplementos em extensões VSPackage.
Quando você cria um suplemento usando o Assistente de Suplemento e seleciona a opção de exibi-lo como um comando, o comando está no menu Ferramentas por padrão. No entanto, se você ignorar esta opção ao criar o suplemento, você poderá simplesmente executar o Assistente de Suplemento novamente, verificar a opção e, em seguida, copiar seu código existente para o novo suplemento.
Se não for possível fazer isso, o procedimento a seguir realizará a mesma coisa.
Dica
As caixas de diálogo e os comandos de menu que você vê podem diferir das descritas no Help dependendo de suas configurações ativas ou de edição.Esses procedimentos foram desenvolvidos com as Configurações Gerais de Desenvolvimento ativas.Para alterar as configurações, escolha Importar e ExportarConfigurações no menu de Ferramentas.Para obter mais informações, consulte Personalizando configurações de desenvolvimento no Visual Studio.
Para adicionar um comando de menu a um suplemento existente
Na classe de Connect do suplemento, adicione Implements IDTCommandTarget.
Isso fornece acesso à interface de comandos IDTCommandTarget, que é necessário para criar comandos.
No procedimento OnConnection, adicione o seguinte:
Imports System Imports Microsoft.VisualStudio.CommandBars Imports Extensibility Imports EnvDTE Imports EnvDTE80 _applicationObject = CType(application, DTE2) _addInInstance = CType(addInInst, AddIn) If connectMode = ext_ConnectMode.ext_cm_Startup Then Dim commands As Commands2 = CType(_applicationObject.Commands, _ Commands2) Dim toolsMenuName As String Try Dim resourceManager As System.Resources.ResourceManager = _ New System.Resources.ResourceManager _ ("MyAddin1.CommandBar", System.Reflection.Assembly. _ GetExecutingAssembly()) Dim cultureInfo As System.Globalization.CultureInfo = New _ System.Globalization.CultureInfo(_applicationObject. _ LocaleID) toolsMenuName = resourceManager.GetString(String.Concat _ (cultureInfo.TwoLetterISOLanguageName, "Tools")) Catch e As Exception toolsMenuName = "Tools" End Try Dim commandBars As CommandBars = _ CType(_applicationObject.CommandBars, CommandBars) Dim menuBarCommandBar As CommandBar = _ commandBars.Item("MenuBar") Dim toolsControl As CommandBarControl = _ menuBarCommandBar.Controls.Item(toolsMenuName) Dim toolsPopup As CommandBarPopup = CType(toolsControl, _ CommandBarPopup) Try Dim command As Command = _ commands.AddNamedCommand2(_addInInstance, "MyAddin1", _ "MyAddin1", "Executes the command for MyAddin1", True, _ 59, Nothing, CType(vsCommandStatus. _ vsCommandStatusSupported, Integer) + _ CType(vsCommandStatus.vsCommandStatusEnabled, _ Integer), vsCommandStyle.vsCommandStylePictAndText, _ vsCommandControlType.vsCommandControlTypeButton) command.AddControl(toolsPopup.CommandBar, 1) Catch argumentException As System.ArgumentException End Try End If
Esse código é executado quando o suplemento é carregado ("conectado") no Visual Studio. Determina se o suplemento foi carregado com um valor de ext_ConnectMode de ext_cm_UISetup. Isso significa que o suplemento foi iniciado pela primeira vez desde que foi instalado. Se isso for verdadeiro, um comando será criado para ele no menu de Ferramentas usando o método AddNamedCommand. Para obter mais informações, consulte Como adicionar e manipular comandos.
Adicione os dois procedimentos a seguir à classe Connect.
O método QueryStatus é chamado quando a disponibilidade do comando é atualizada. O método Exec é chamado quando o comando é invocado.
Public Sub QueryStatus(ByVal commandName As String, _ ByVal neededText As vsCommandStatusTextWanted, ByRef status As _ vsCommandStatus, ByRef commandText As Object) Implements _ IDTCommandTarget.QueryStatus If neededText = vsCommandStatusTextWanted. _ vsCommandStatusTextWantedNone Then If commandName = "MyAddin1.Connect.MyAddin1" Then status = CType(vsCommandStatus.vsCommandStatusEnabled _ + vsCommandStatus.vsCommandStatusSupported, _ vsCommandStatus) Else status = vsCommandStatus.vsCommandStatusUnsupported End If End If End Sub Public Sub Exec(ByVal commandName As String, ByVal executeOption _ As vsCommandExecOption, ByRef varIn As Object, ByRef varOut As _ Object, ByRef handled As Boolean) Implements IDTCommandTarget.Exec handled = False If executeOption = vsCommandExecOption. _ vsCommandExecOptionDoDefault Then If commandName = "MyAddin1.Connect.MyAddin1" Then handled = True Exit Sub End If End If End Sub
Cada vez que você implementa IDTCommandTarget, você deve adicionar esses dois procedimentos. Uma maneira rápida de fazer é selecionar IDTCommandTarget na caixa suspensa Nome de Classe, no canto superior esquerdo do editor. Selecione um procedimento por vez na caixa suspensa Nome do Método no canto superior direito. Isso cria os procedimentos vazios necessários com os parâmetros corretos aos quais é possível adicionar código.
O procedimento Exec é chamado quando um usuário clica em seu comando de menu para inserir o código que deseja que seja executado naquele momento.
Consulte também
Tarefas
Como expor um suplemento no menu Ferramentas (Visual C#)
Como controlar suplementos usando o Gerenciador de Suplementos