Question

我创建了一个类并将其对象放入Arraylist中。

这是班级：

Public Class ItemColl

    Public TBPid, PAid As Integer

    Public Sub New(ByVal _TBPid As Integer, ByVal _PAid As Integer)
        TBPid = _TBPid
        PAid = _PAid
    End Sub
End Class

Dim arrlst as new ArrayList

arrlst.Add(new ItemColl("1a","12"))

arrlst.Add(new ItemColl("1b","123"))

arrlst.Add(new ItemColl("1as","45"))

arrlst.Add(new ItemColl("1tr","67"))

我想要的是每当我使用它的索引枚举arraylist时，它会给我带来“ItemColl.TBPid”（请参见下文..）

For i As Integer = 0 To arrlst.Count - 1

     arrlst.item(i) //Here I need TBPid to be returned.

Next

我知道我可以覆盖ToString（），但是用“.ToString（）”更改现有代码会花费很多时间。

Answer 1

创建一个类，然后创建该类型的generic list。使用强类型列表，您可以访问对象的属性，如下所示：

Dim myList As New List(Of ItemColl)()
myList(0).PAid1 = 1

当然，您也可以将ArrayList中的每个对象转换为ItemColl：

TBPid= CType(arrlst(0), ItemColl).TBPid

但是，我建议使用List。

枚举一个对象

1 个答案: