Partager via


_DTE.ActiveDocument, propriété

Mise à jour : novembre 2007

Obtient le document actif.

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

Syntaxe

ReadOnly Property ActiveDocument As Document

Dim instance As _DTE
Dim value As Document

value = instance.ActiveDocument
Document ActiveDocument { get; }
property Document^ ActiveDocument {
    Document^ get ();
}
function get ActiveDocument () : Document

Valeur de propriété

Type : EnvDTE.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 DTE.ItemOperations.NewFile("General\Text File")
  'Get a handle to the new document.
  Set objTextDoc = DTE.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 = DTE.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

Autorisations

Voir aussi

Référence

_DTE, interface

Membres _DTE

EnvDTE, espace de noms