这是执行此操作的宏。在宏 IDE 类视图中导航到 MyMacros - EnvironmentEvents。打开(双击)EnvironmentEvents。在模块内插入以下代码:
Private Sub BuildEvents_OnBuildDone( _
ByVal Scope As EnvDTE.vsBuildScope, _
ByVal Action As EnvDTE.vsBuildAction) _
Handles BuildEvents.OnBuildDone
Try
Dim activeWin As Window = DTE.ActiveWindow
Dim immedWin As Window = DTE.Windows.Item("{ECB7191A-597B-41F5-9843-03A4CF275DDE}")
immedWin.Activate()
DTE.ExecuteCommand("Edit.ClearAll")
activeWin.Activate()
Catch ex As Exception
End Try
End Sub
在这里你可以看到它应该是什么样子:
请参阅我的快速教程如何创建和执行 VS 宏。