次の方法で共有


Language.DTE Property

Definition

Gets the top-level extensibility object.

public:
 property EnvDTE::DTE ^ DTE { EnvDTE::DTE ^ get(); };
public:
 property EnvDTE::DTE ^ DTE { EnvDTE::DTE ^ get(); };
[System.Runtime.InteropServices.DispId(200)]
public EnvDTE.DTE DTE { [System.Runtime.InteropServices.DispId(200)] get; }
[<System.Runtime.InteropServices.DispId(200)>]
[<get: System.Runtime.InteropServices.DispId(200)>]
member this.DTE : EnvDTE.DTE
Public ReadOnly Property DTE As DTE

Property Value

DTE

A DTE object.

Attributes

Examples

The following example demonstrates how to use the DTE property.

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  

Applies to