Breakpoint2.Type 屬性

發行項
08/12/2011

取得常數，指定中斷點的類型。

命名空間： EnvDTE80
組件： EnvDTE80 (在 EnvDTE80.dll 中)

語法

'宣告
ReadOnly Property Type As dbgBreakpointType
    Get

dbgBreakpointType Type { get; }

property dbgBreakpointType Type {
    dbgBreakpointType get ();
}

abstract Type : dbgBreakpointType

function get Type () : dbgBreakpointType

屬性值

型別：EnvDTE.dbgBreakpointType
其中一個 dbgBreakpointType 值。

實作

Breakpoint.Type

範例

下列範例示範如何使用 Type 屬性。

若要測試這個屬性：

請在目標應用程式中設定中斷點。
在 [屬性/叫用次數] 對話方塊中設定各種中斷點屬性。
執行增益集。

public static void Type(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("Type property: ");
    owp.Activate();

    // dte is a reference to the DTE2 object passed to you by the
    // OnConnection method that you implement when you create an Add-in.
    EnvDTE80.Debugger2 debugger = (EnvDTE80.Debugger2)dte.Debugger;
    owp.OutputString("HitCountTarget: " +
                        debugger.Breakpoints.Item(1).HitCountTarget);
    owp.OutputString("\nHitCountType: " +
                        debugger.Breakpoints.Item(1).HitCountType);
    owp.OutputString("\nLocationType: " +
                        debugger.Breakpoints.Item(1).LocationType);
    owp.OutputString("\nName: " + debugger.Breakpoints.Item(1).Name);
    debugger.Breakpoints.Item(1).Tag = "My Breakpoint";
    owp.OutputString("\nTag: " + debugger.Breakpoints.Item(1).Tag);
    owp.OutputString("\nType: " + debugger.Breakpoints.Item(1).Type); 
}

Sub TypeSamplesVB(ByVal dte As DTE2)
    ' NOTE: This example requires a reference to the
    '       System.IO namespace.
    ' Before running this example, open a code document that
    ' contains one or more breakpoints.

    Dim doc As Document = dte.ActiveDocument
    Dim brk As Breakpoint
    Dim msg As String

    ' Find all breakpoints in the current document.
    For Each brk In dte.Debugger.Breakpoints
        If brk.File = doc.FullName Then
            msg &= "Name = " & brk.Name & vbCrLf & _
                "Type = " & brk.Type.ToString() & vbCrLf & _
                "Enabled = " & brk.Enabled.ToString() & vbCrLf & vbCrLf
        End If
    Next

    MsgBox(Path.GetFileName(doc.FullName) & _
        " has the following breakpoints:" & vbCrLf & vbCrLf & msg)

End Sub