Expression.Collection Eigenschaft
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
Ruft die Auflistung mit dem Objekt ab, das diese Eigenschaft unterstützt oder das in diesem Codekonstrukt enthalten ist.
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
Eigenschaftswert
Eine Expressions-Auflistung.
- Attribute
Beispiele
Im folgenden Beispiel wird die Verwendung der- Collection Eigenschaft veranschaulicht.
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.Expression 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 EnvDTE.Expression = 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