共用方式為

Language.DTE 屬性

  • 發行項

取得最上層擴充性物件。

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

語法

'宣告
ReadOnly Property DTE As DTE
    Get

DTE DTE { get; }

property DTE^ DTE {
    DTE^ get ();
}

abstract DTE : DTE

function get DTE () : DTE

屬性值

型別：EnvDTE.DTE
DTE 物件。

範例

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

若要測試這個屬性：

  1. 在目標應用程式中設定中斷點。

  2. 在偵錯模式執行目標應用程式。

  3. 當應用程式在中斷點停止時，請執行增益集。

public static void DTE(DTE 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("DTE Property Test");
    owp.Activate();

    EnvDTE.Language language = dte.Debugger.Languages.Item(1);
    owp.OutputString("Number of items in the language collection is " + 
                     language.Collection.Count + ": ");
    foreach(EnvDTE.Language lang in language.Collection)
        owp.OutputString(lang.Name + "  ");
    owp.OutputString("\nEdition of the environment: " + language.DTE.Edition);
    owp.OutputString("\nThe name of the current program: " + 
                     language.Parent.CurrentProgram.Name);
}

Shared Sub DTE(ByRef dte As EnvDTE.DTE)
    Dim language As EnvDTE.Language = dte.Debugger.Languages.Item(1)
    Dim str As String = vbCrLf
    str = "There are " + language.Collection.Count.ToString()
    str += " items in the language collection: "
    For Each lang As EnvDTE.Language In language.Collection
        str += lang.Name + "  "
    Next
    str += vbCrLf + vbCrLf + "Edition of the environment: " + _
           language.DTE.Edition
    str += vbCrLf + vbCrLf + "The name of the current program: " + _
           language.Parent.CurrentProgram.Name
    MessageBox.Show(str, "Language Test - DTE Property")
End Sub

.NET Framework 安全性

請參閱

參考

Language 介面

EnvDTE 命名空間

其他資源

HOW TO：編譯和執行 Automation 物件模型程式碼範例