Debugger3.CurrentMode Property 
Definition
Important
Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.
Gets the current mode of the debugger within the context of the IDE.
public:
 property EnvDTE::dbgDebugMode CurrentMode { EnvDTE::dbgDebugMode get(); };
	public:
 property EnvDTE::dbgDebugMode CurrentMode { EnvDTE::dbgDebugMode get(); };
	[System.Runtime.InteropServices.DispId(102)]
public EnvDTE.dbgDebugMode CurrentMode { [System.Runtime.InteropServices.DispId(102)] get; }
	[<System.Runtime.InteropServices.DispId(102)>]
[<get: System.Runtime.InteropServices.DispId(102)>]
member this.CurrentMode : EnvDTE.dbgDebugMode
	Public ReadOnly Property CurrentMode As dbgDebugMode
	Property Value
A dbgDebugMode value.
Implements
- Attributes
 
Examples
The following example shows how to use the CurrentMode property.
public static void CurrentMode(EnvDTE80.DTE2 dte)  
{  
    // Setup debug Output window.  
    Window w = _  
      (Window)dte.Windows.Item(EnvDTE.Constants.vsWindowKindOutput);  
    w.Visible = true;  
    OutputWindow ow = (OutputWindow)w.Object;  
    OutputWindowPane owp = ow.OutputWindowPanes.Add("Current Mode");  
    owp.Activate();  
    owp.OutputString("Current Mode: ");  
    EnvDTE90.Debugger3 debugger = (EnvDTE90.Debugger3)dte.Debugger;  
    switch (debugger.CurrentMode)  
    {  
        case dbgDebugMode.dbgDesignMode:  
            owp.OutputString("Design Mode");  
            break;  
        case dbgDebugMode.dbgBreakMode:  
            owp.OutputString("Break Mode");  
            break;  
        case dbgDebugMode.dbgRunMode:  
            owp.OutputString("Run Mode");  
            break;  
    }  
}  
Sub DebuggerMode()  
    ' This function displays the current debugger mode in a new  
    ' pane in the Output window.  
    Dim ow As OutputWindow  
    ow = DTE.Windows.Item(Constants.vsWindowKindOutput).Object  
    Dim bppane As OutputWindowPane  
    bppane = ow.OutputWindowPanes.Add("Debugger")  
    Select Case dte.Debugger3.CurrentMode  
        Case dbgDebugMode.dbgBreakMode  
            bppane.OutputString("Break Mode" + vbCrLf)  
        Case dbgDebugMode.dbgDesignMode  
            bppane.OutputString("Design Mode" + vbCrLf)  
        Case dbgDebugMode.dbgRunMode  
            bppane.OutputString("Run Mode" + vbCrLf)  
    End Select  
End Sub