如何在VB中过滤泛型集合中指定类型的对象

Question

给定以下类结构：

• Class Base {id}
• Class Derived1 : Base {}
• Class Derived2 : Base {}
• Class MyList : System.Collection.Generic.List(Of Base)
• Class Consumer { list as MyList }

（编辑：将会有超过 2 个派生类，为了简单起见，我只列出了 2 个）

我将以下属性添加到 MyList，尝试回答诸如“找出内部具有指定类型（例如 Derived1）的元素数量之类的问题我的列表？”

Public Overloads ReadOnly Property Count(ByVal objType As System.Type) As Integer
    Get
        Dim cnt As Integer = 0
        For Each o As Object In Me
            If (o IsNot Nothing) And (o.GetType.Equals(objType)) Then cnt += 1
        Next
        Return cnt
    End Get
End Property

Q1：有什么需要改进的地方吗？如果是，请指教。

提前致谢

Answer 1

如果您使用 .NET 3.5，您可以使用 Linq：

Dim myList As MyList;
...
Dim count = myList.OfType(Of Derived1).Count();

根本不需要添加该属性。