Visual Studio 2008 Macro funciona apenas do Macro IDE, não do Macro Explorer
-
05-07-2019 - |
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
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.