DTE2.ActiveDocument プロパティ

[アーティクル]
08/09/2011

アクティブドキュメントを取得します。

名前空間: EnvDTE80
アセンブリ: EnvDTE80 (EnvDTE80.dll 内)

構文

'宣言
ReadOnly Property ActiveDocument As Document
    Get

Document ActiveDocument { get; }

property Document^ ActiveDocument {
    Document^ get ();
}

abstract ActiveDocument : Document

function get ActiveDocument () : Document

プロパティ値

型: EnvDTE.Document
Document オブジェクト。

実装

_DTE.ActiveDocument

解説

アクティブドキュメントは、フォーカスのあるドキュメントです。ほかのドキュメントをアクティブにするには、そのドキュメントのウィンドウにフォーカスを設定します。

キャプションを設定できるのはツールウィンドウだけです。ドキュメントウィンドウなど、他の種類のウィンドウにキャプションを設定しようとすると、"予期しないエラーです" というエラーが表示されます。

例

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