Partager via


DTE2.ActiveDocument, propriété

Obtient le document actif.

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

Syntaxe

'Déclaration
ReadOnly Property ActiveDocument As Document
Document ActiveDocument { get; }
property Document^ ActiveDocument {
    Document^ get ();
}
abstract ActiveDocument : Document with get
function get ActiveDocument () : Document

Valeur de propriété

Type : Document
Objet Document.

Notes

Le document actif est celui qui a le focus. Pour activer un autre document, placez le focus sur sa fenêtre.

Vous ne pouvez définir la légende que dans les fenêtres Outil. Si vous essayez de définir la légende dans d'autres types de fenêtres, telles que des fenêtres de document, le message d'erreur "Erreur non spécifiée" s'affiche.

Exemples

Sub ActiveDocumentExample()
  Dim objTextDoc As TextDocument
  Dim objEP As EditPoint
  
  ' Create a new text document.
  Call DTE2.ItemOperations.NewFile("General\Text File")
  'Get a handle to the new document.
  Set objTextDoc = DTE2.ActiveDocument.Object("TextDocument")
  Set objEP = objTextDoc.StartPoint.CreateEditPoint
  'Create an EditPoint and add some text.
  objEP.Insert "A test sentence."
End Sub

Sub DocumentExample()
  Dim doc As Document
  Dim desc As String

  Set doc = DTE2.ActiveDocument
  desc = "You are editing a "
  If (doc.ReadOnly) Then
    desc = desc & "read-only"
  Else
    desc = desc & "writable"
  End If
  desc = desc & " document called " & doc.Name & " located at " & doc.Path
  MsgBox desc
End Sub

Sécurité .NET Framework

Voir aussi

Référence

DTE2 Interface

EnvDTE80, espace de noms