Expression.Collection Propriedade
Definição
Importante
Algumas informações se referem a produtos de pré-lançamento que podem ser substancialmente modificados antes do lançamento. A Microsoft não oferece garantias, expressas ou implícitas, das informações aqui fornecidas.
Obtém a coleção que contém o objeto que dá suporte a essa propriedade ou está contida nesta construção de código.
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
Valor da propriedade
Uma coleção Expressions.
- Atributos
Exemplos
O exemplo a seguir demonstra como usar a Collection propriedade.
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