Debugger.CurrentProgram 属性

项目
05/17/2015

设置或获取活动程序。

命名空间： EnvDTE
程序集： EnvDTE（在 EnvDTE.dll 中）

语法

声明
Property CurrentProgram As Program

Program CurrentProgram { get; set; }

property Program^ CurrentProgram {
    Program^ get ();
    void set (Program^ value);
}

abstract CurrentProgram : Program with get, set

function get CurrentProgram () : Program 
function set CurrentProgram (value : Program)

属性值

类型：EnvDTE.Program
活动的 Program。

备注

CurrentProgram 设置或返回活动的 Program。活动程序即定义调试器所显示的数据的程序。尽管调试器支持同时调试多个进程，但在任意给定时刻只能有一个进程处于活动状态。有关更多信息，请参见<PAVEOVER> 调试多个进程。

示例

下面的示例演示如何使用 CurrentProgram 属性。

测试此属性：

打开目标应用程序。运行外接程序。没有任何程序正在调试。
在目标应用程序中设置一个断点。以调试模式运行此应用程序。
当程序停在该断点处时，运行外接程序。正在调试该程序。

public static void CurrentProgram(DTE dte)
{
    // Setup the 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 Program Test");
    owp.Activate();

    owp.OutputString("Current Program Info: ");
    EnvDTE.Program program = dte.Debugger.CurrentProgram;
    if(program == null)
        owp.OutputString("No program is being debugged");
    else
        owp.OutputString("Program Name = " + program.Name);
}

Shared Sub CurrentProgram(ByRef dte As EnvDTE.DTE)
    Dim program As EnvDTE.Program = dte.Debugger.CurrentProgram
    If program Is Nothing Then
        MessageBox.Show("No program is being debugged", _
                        "Debugger Test - Current Program Info")
    Else
        MessageBox.Show("Program Name = " + _
                        program.Name, "Debugger Test - Current Program Info")
    End If
End Sub