Макрос Visual Studio 2008 работает только из Macro IDE, а не из Macro Explorer

StackOverflow https://stackoverflow.com/questions/1202475

Вопрос

Изменить . Создание нового модуля в том же проекте VSMacros устранило проблему.

<Ч>

Следующий макрос работает, только если я открываю Macro IDE из Visual Studio и запускаю макрос оттуда.

Было бы гораздо полезнее, если бы я мог просто щелкнуть правой кнопкой мыши макрос в Macro Explorer из моего экземпляра Visual Studio.

Должно быть, я что-то делаю явно неправильно, но я никогда раньше не работал с макросами VS. MessageBox не появляется ни в одном случае.

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
Это было полезно?

Решение

Из этого статья в MSDN Я думаю, что нашел другой возможный ответ. Основным предложением этой темы было:

В меню «Сервис», «Параметры», в разделе «Безопасность надстроек / макросов» установите флажок «Разрешить запуск макросов»

Другие советы

Окно сообщения в редакторе макросов:

MsgBox("Your Text Here") = Resultxx

Удачи.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top