我编写了一个宏,启动对话框,用户可以从下拉框中选择一个值。不幸的是,对话框会显示,并且我会在1到20秒之间看到沙漏。
我发现了几个解决方法,似乎有所帮助:
我用来启动对话框的代码是:
我发现了几个解决方法,似乎有所帮助:
- 快速按下CTRL-Alt-Del,然后按Escape键。
- 单击任务栏中旋转的宏动画。
- 从任务栏最小化,然后最大化对话框。
我用来启动对话框的代码是:
Dim winptr As New WinWrapper()
frm.ShowDialog(winptr)
并且
'' This class is used to set the proper parent to any UI that you may display from within a macro.
Public Class WinWrapper
Implements System.Windows.Forms.IWin32Window
Overridable ReadOnly Property Handle() As System.IntPtr Implements System.Windows.Forms.IWin32Window.Handle
Get
Dim iptr As New System.IntPtr(DTE.MainWindow.HWnd)
Return iptr
End Get
End Property
End Class