Partager via


Breakpoint2.File, propriété

Obtient le nom du fichier dans lequel le point d'arrêt est contenu.

Espace de noms :  EnvDTE80
Assembly :  EnvDTE80 (dans EnvDTE80.dll)

Syntaxe

'Déclaration
ReadOnly Property File As String
string File { get; }
property String^ File {
    String^ get ();
}
abstract File : string with get
function get File () : String

Valeur de propriété

Type : String
Chaîne qui contient le nom du fichier dans lequel le point d'arrêt est contenu.

Exemples

L'exemple suivant illustre l'utilisation de la propriété File.

Pour tester cette propriété :

  1. Définissez un point d'arrêt dans l'application cible.

  2. Exécutez le complément.

public static void File(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("File 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("Breakpoint in the file " + debugger.Breakpoints.Item(1).File);
    owp.OutputString(" on line " +
                     debugger.Breakpoints.Item(1).FileLine.ToString() + " column ");
    owp.OutputString(debugger.Breakpoints.Item(1).FileColumn.ToString() + " is ");
    owp.OutputString(debugger.Breakpoints.Item(1).Enabled ? "enabled." : "disabled.");
    owp.OutputString("\nThis breakpoint is in the function: " +
                     debugger.Breakpoints.Item(1).FunctionName);
}
Sub FileExample(ByVal dte As DTE2)

    ' NOTE: This example requires a reference to the 
    '       System.Collections namespace.

    ' Before running this example, open a project.
    Dim list As New SortedList()
    Dim brk As Breakpoint
    For Each brk In dte.Debugger.Breakpoints
        If brk.Enabled Then
            list(brk.File) = brk.File
        End If
    Next

    Dim file As DictionaryEntry
    Dim files As String
    For Each file In list
        files &= file.Value.ToString() & vbCrLf
    Next

    MsgBox("The following files have active breakpoints:" & _
        vbCrLf & vbCrLf & files)

End Sub

Sécurité .NET Framework

Voir aussi

Référence

Breakpoint2 Interface

EnvDTE80, espace de noms

Autres ressources

Comment : compiler et exécuter les exemples de code du modèle objet Automation