Condividi tramite


Expression2.Collection Property

Definition

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

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

Property Value

An Expressions collection.

Implements

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();  

    EnvDTE100.Expression2 exp = dte.Debugger.GetExpression("a", true, 1);  
    EnvDTE.Expressions exps = exp.DataMembers;  
    owp.OutputString("\nExpression count: " + exps.Count);  
    owp.OutputString("\nEdition of the environment: " + exps.DTE.Edition);  
    owp.OutputString("\nThe name of the current program: " +   
                     exps.Parent.CurrentProgram.Name);  
    owp.OutputString("\nSecond expression: " + exps.Item(2).Name);  
}  
Shared Sub Collection(ByRef dte As EnvDTE.DTE)  
    Dim exp As EnvDTE100.Expression2 = dte.Debugger.GetExpression("a", True, 1)  
    Dim exps As EnvDTE.Expressions = exp.DataMembers  
    Dim str As String = vbCrLf  
    str = "Expression count: " + exps.Count.ToString()  
    str += vbCrLf + "Edition of the environment: " + exps.DTE.Edition  
    str += vbCrLf + "The name of the current program: " + _  
           exps.Parent.CurrentProgram.Name  
    str += vbCrLf + "Second expression: " + exps.Item(2).Name  
    MessageBox.Show(str, "Expression Test - Collection Property")  
End Sub  

Applies to