次の方法で共有

Expressions.Count Property

  • Reference

Definition

Namespace:
EnvDTE
Assembly:
EnvDTE.dll
Assembly:
Microsoft.VisualStudio.Interop.dll
Package:
Microsoft.VisualStudio.Interop v17.11.40262

Gets a value indicating the number of objects in the collection.

public:
 property int Count { int get(); };
public:
 property int Count { int get(); };
[System.Runtime.InteropServices.DispId(3)]
public int Count { [System.Runtime.InteropServices.DispId(3)] get; }
[<System.Runtime.InteropServices.DispId(3)>]
[<get: System.Runtime.InteropServices.DispId(3)>]
member this.Count : int
Public ReadOnly Property Count As Integer

Property Value

Int32

An integer indicating the number of objects in the collection.

Attributes
DispIdAttribute

Examples

The following example demonstrates how to use the Count property.

public static void Count(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("Count 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 Count(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 - Expressions Properties")  
End Sub

Applies to