次の方法で共有


Language.Collection Property

Definition

Gets the collection containing the object supporting this property or contained within this code construct.

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

Property Value

A Languages collection.

Attributes

Examples

The following example demonstrates how to use the Collection property.

public static void Collection(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("Collection 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 Collection(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 - Collection Property")  
End Sub  

Applies to