Debugger3.CurrentProgram – vlastnost

Článek
08/11/2011

Nastaví nebo vrátí aktivní aplikaci.

Obor názvů: EnvDTE90
Sestavení: EnvDTE90 (v EnvDTE90.dll)

Syntaxe

'Deklarace
Property CurrentProgram As Program
    Get
    Set

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)

Hodnota vlastnosti

Typ: EnvDTE.Program
A Program objektu.

Implementuje

Debugger2.CurrentProgram

Poznámky

Aktivní program je program, který definuje data zobrazí ladicí program. Přestože debuggeru podporuje ladění současně více než jeden proces, pouze jeden proces může být aktivní v daném okamžiku. Další informace naleznete v tématu Debugging Multiple Processes.

Příklady

Sub DumpStacks()
    ' This macro dumps the stack for each thread 
    ' running in the current program to the 
    ' Command window.  The output format is identical 
    ' to that of the call-stack window except the current
    ' line is not printed.
    Dim d As EnvDTE90.Debugger3
    d = dte.Debugger3
    Dim ow As CommandWindow
    ow = dte.Windows.Item(Constants.vsWindowKindCommandWindow).Object

    If d.CurrentProgram Is Nothing Then
        ow.OutputString("No program is currently being debugged." + _
        vbCrLf)
    Else
        Dim MyThread As Thread
        ow.OutputString("Current Program: " + d.CurrentProgram.Name + _
        vbCrLf)

        For Each MyThread In d.CurrentProgram.Threads
            ow.OutputString("" + vbTab + "Thread _
            (" + Str(MyThread.ID) + " ) " + MyThread.Name + vbCrLf)

            Dim MyFrame As EnvDTE.StackFrame
            For Each MyFrame In MyThread.StackFrames
                Dim strModule As String
                Dim pos As Integer = InStrRev(MyFrame.Module, "\")
                If pos > 0 Then
                    strModule = Right(MyFrame.Module, _
                    Len(MyFrame.Module) - pos)
                Else
                    strModule = MyFrame.Module
                End If

                Dim strFName As String = MyFrame.FunctionName
                'Create the argument list.
                Dim strArgs As String
                Dim MyArg As Expression
                Dim i = 0
                For Each MyArg In MyFrame.Arguments
                    If i > 0 Then
                        strArgs = strArgs + ", "
                    End If
                    strArgs = strArgs + MyArg.Type + " " + _
                    MyArg.Name + "=" + MyArg.Value
                    i = i + 1
                Next
                'Output the frame information.
                ow.OutputString("" + vbTab + vbTab + strModule + ": _
                " + strFName + "(" + strArgs + ")" + vbCrLf)
            Next
        Next
    End If
End Sub

Zabezpečení rozhraní .NET Framework

Plná důvěra přímému volajícímu. Částečně zabezpečený kód nemůže tento člen použít. Další informace naleznete v tématu Používání knihoven z částečně důvěryhodného kódu.

Viz také

Odkaz

Debugger3 Rozhraní

CurrentProgram – přetížení

EnvDTE90 – obor názvů

Sdílet prostřednictvím