Como gravar uma macro no Visual Basic .NET ou no Visual Basic 2005 que insere automaticamente texto de comentário

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 822097
Sumário
Este artigo passo a passo descreve como escrever uma macro no Microsoft Visual Basic .NET ou no Microsoft Visual Basic 2005 insere automaticamente texto de comentário em funções e sub-rotinas quando você criar funções e criar o sub-rotinas. O exemplo neste artigo descreve como inserir um comentário quando você escrever a assinatura de função e você escrever a assinatura da sub-rotina e, em seguida, pressione a tecla ENTER.
Mais Informações
Uma macro é um conjunto de instruções que você salvar em um arquivo. Você pode usar uma macro sempre que necessitam dele.

Para criar manualmente uma macro, digite o código em Macros IDE. Você também pode usar o IDE de macros para gravar uma macro.

Depois de criar uma macro, você pode executar a macro do Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005 Macro Explorer, ou você pode executar a macro usando o atalho de teclado.

O exemplo neste artigo usa os seguintes elementos para descrever como inserir comentários:
  • Extensibilidade de ferramentas de desenvolvimento (DTE) objeto: este objeto é o objeto Application no Microsoft Visual Basic for Applications. O objeto Application é um objeto de nível superior no modelo de objeto de automação do Microsoft Visual Studio.
  • propriedade ActiveDocument : essa propriedade retorna um documento ativo que tem foco.
  • objeto EditPoint : este objeto é semelhante a um objeto TextSelect . Você pode usar o objeto EditPoint para manipular o texto como dados no buffer.

Exemplo passo a passo

  1. Inicie o Visual Studio .NET ou Visual Studio 2005.
  2. No menu Ferramentas , aponte para macros e, em seguida, clique em Macros IDE .
  3. Na janela IDE de macros, expanda MyMacros no painel esquerdo.
  4. Clique duas vezes em Module1 .
  5. No painel à direita, adicione o seguinte código antes de End Module :
    '   InsertDocComments goes through the current document by using the Visual Studio .NET code model    '   to add documentation style comments to each function.    Sub InsertDocComments()        Dim ep As EditPoint = DTE.ActiveDocument.Selection.ActivePoint.CreateEditPoint        Dim currLine As String        currLine = ep.GetLines(ep.Line(), ep.Line() + 1)        If (currLine.IndexOf("End ") = -1) Then            If ((TestLine(currLine, "Sub") = True) Or (TestLine(currLine, "Function") = True) _                 Or (TestLine(currLine, "sub") = True) Or (TestLine(currLine, "function") = True)) Then                ep.Insert(Microsoft.VisualBasic.Constants.vbCrLf)                ep.Insert(Microsoft.VisualBasic.Constants.vbTab & "' Comment is inserted on " & System.DateTime.Now().ToString())            End If        End If        ep.Insert(Microsoft.VisualBasic.Constants.vbNewLine)    End Sub    '   This function checks for a subroutine keyword or a function keyword that is in the specified string.    Function TestLine(ByVal st As String, ByVal keyWord As String) As Boolean        Select Case (st.IndexOf(keyWord))            Case -1                Return False            Case 0                If (st.Substring(st.IndexOf(keyWord), keyWord.Length + 1).EndsWith(keyWord + " ")) Then                    Return True                End If            Case Is > 0                If (st.Substring(st.IndexOf(keyWord), keyWord.Length + 1).EndsWith(keyWord + " ") And st.Substring(st.IndexOf(keyWord) - 1, keyWord.Length + 1).StartsWith(" " + keyWord) = True) Then                    Return True                End If            Case Else                Return False        End Select        Return False    End Function
  6. No menu arquivo , clique em Salvar MyMacros .
  7. Feche as macros IDE.
  8. Retorne ao Visual Studio .NET ou Visual Studio 2005 IDE. No menu Ferramentas , clique em Opções .
  9. No painel esquerdo da janela Opções, expanda ambiente e, em seguida, clique em teclado .
  10. No painel à direita da janela Opções, clique em [Configurações] padrão na lista esquema de mapeamento de teclado e, em seguida, clique em Salvar como .
  11. Digite AddDefaultComment na caixa de texto Salvar este esquema de teclado como e, em seguida, clique em OK .
  12. Na lista Mostrar contendo comandos , clique em Macros.MyMacros.Module1.InsertDocComments .
  13. Na lista Usar novo atalho na , clique em Editor de texto .
  14. Na caixa de texto Pressione chaves de atalho , pressione a tecla ENTER e, em seguida, clique em atribuir .
  15. Clique em OK .
  16. Para testar essa macro, aponte para novo no menu arquivo do Visual Studio .NET ou Visual Studio 2005 IDE e, em seguida, clique em Project .
  17. Em Project Types , clique em Projetos do Visual Basic .

    Observação No Visual Studio 2005, clique em Visual Basic em Project Types .
  18. Em modelos , clique em Console Application e em seguida, clique em OK .
  19. Digite Sub Sub Name ou tipo função Function Name, e então pressione ENTER a chave.

    Um comentário é adicionado após o cabeçalho de sub-rotina ou após o cabeçalho de função.

    Observação Com essa macro, você pode receber um comentário para as funções existentes ou para as sub-rotinas existentes quando você pressiona a tecla ENTER. A funcionalidade dessa macro substitui a funcionalidade existente da tecla ENTER. Você deve remover o mapeamento de teclado para a tecla ENTER enquanto você estiver usando Visual Studio .NET para linguagens de programação diferentes do Visual Basic. NET, como Microsoft Visual translation from VPE for Csharp .NET e Microsoft Visual J# .NET ou você estiver usando o Visual Studio 2005 para linguagens de programação diferentes do Visual Basic 2005, como Microsoft Visual translation from VPE for Csharp 2005 e Microsoft Visual J# 2005.
Referências
Para obter mais informações, visite os seguintes sites:
Automatizando repetitivas ações usando macros
http://msdn2.microsoft.com/en-us/library/8h31zbch(vs.71).aspx

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 822097 - Última Revisão: 11/26/2007 07:02:04 - Revisão: 2.6

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbmt kbvs2005applies kbvs2005swept kbmacro kbautomation kbide kbhowto KB822097 KbMtpt
Comentários