Pergunta

Editar: Criar um novo módulo no mesmo projeto VSMACROS corrigiu o problema.


A macro seguinte só funciona se eu abrir o Macro IDE do Visual Studio e executar a macro a partir daí.

Seria muito mais útil se eu pudesse clicar com o botão direito do mouse na macro do Macro Explorer na minha instância do Visual Studio.

Devo estar fazendo algo obviamente errado, mas nunca trabalhei com o VS Macros antes. A caixa de mensagem não aparece em nenhum dos casos.

Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports System.Security.Principal
Imports System.Windows.Forms

Public Module AttachToSdtProcess
    Sub AttachToSdtProcess()
        Try
            'If MessageBox.Show("Attach to SDT.exe", "Caption", _
            '            MessageBoxButtons.OKCancel) = DialogResult.Cancel Then
            'Return
            'End If

            Dim dbg2 As EnvDTE80.Debugger2 = DTE.Debugger
            Dim trans As EnvDTE80.Transport = dbg2.Transports.Item("Default")
            Dim compName As String = WindowsIdentity.GetCurrent().Name
            compName = compName.Substring(0, compName.IndexOf("\"))
            Dim proc2 As EnvDTE80.Process2 = _
                    dbg2.GetProcesses(trans, compName).Item("TheExecutable.exe")
            If proc2 Is Nothing Then
                MessageBox.Show("Could not find TheExecutable.exe")
            End If
            proc2.Attach2(dbgeng)
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Module
Foi útil?

Solução

A partir de isto Artigo sobre o MSDN Acho que encontrei a outra resposta possível. A principal sugestão desse tópico foi:

No menu Ferramentas, Opções, Seção de Segurança de Add-ins/Macros, verifique a caixa de seleção "Permita que as macros corram"

Outras dicas

A caixa de mensagem no editor de macro é:

MsgBox("Your Text Here") = Resultxx

Boa sorte.

Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow
scroll top