Minimize IDE on Code Run (F5)

[Edgemeal]

Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
#If DEBUG Then
        Dim Pr() As Process = Process.GetProcesses
        For Each P As Process In Pr
            If P.MainWindowTitle.Contains(My.Application.Info.AssemblyName) Then
                Dim hwnd As IntPtr = P.MainWindowHandle
                ShowWindow(hwnd, 9)
                Exit For
            End If
        Next
#End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
#If DEBUG Then
        Dim Pr() As Process = Process.GetProcesses
        For Each P As Process In Pr
            If P.MainWindowTitle.Contains(My.Application.Info.AssemblyName) Then
                Dim hwnd As IntPtr = P.MainWindowHandle
                ShowWindow(hwnd, 6)
                Exit For
            End If
        Next
#End If
    End Sub
    Declare Function ShowWindow Lib "User32.dll" (ByVal hwnd As IntPtr, ByVal nCmdShow As UInteger) As Boolean
End Class

Thought I'd share this here in case anyone else needed it or knows a better way to minimize the IDE when you run code, since there doesn't seem to be an option (in VS 2010/VB) to do this.

Originally asked on MSDN here.

[ident]

I was looking for this and found this also

1. Please open Macro IDE by menu Tools / Macro / Macro IDE.

2. In MyMacros project, open EnvironmentEvents file

3. Add following code:

  Private Sub DebuggerEvents_OnEnterDesignMode(ByVal Reason As EnvDTE.dbgEventReason) Handles DebuggerEvents.OnEnterDesignMode
    DTE.MainWindow.WindowState = vsWindowState.vsWindowStateMaximize
  End Sub


  Private Sub DebuggerEvents_OnEnterRunMode(ByVal Reason As EnvDTE.dbgEventReason) Handles DebuggerEvents.OnEnterRunMode
    DTE.MainWindow.WindowState = vsWindowState.vsWindowStateMinimize
  End Sub

[MattP]

You may want to modify the OnEnterRunMode method to not minimize when you're stepping through. A simple If statement can handle that.

        If Reason = dbgEventReason.dbgEventReasonGo Then
            DTE.MainWindow.WindowState = vsWindowState.vsWindowStateMinimize
        End If