16,555
社区成员
发帖
与我相关
我的任务
分享
Dim myA As MyArrayList
myA = New MyArrayList()
myA.ItemAdd("AAAA", 10)
myA.ItemAdd("BBBB", 20)
myA.ItemAdd("CCCC", 30)
myA.ItemAdd("DDDD", 40)
myA.ItemAdd("DDDD", 70)
myA.Item(0).Num = 50
MessageBox.Show(myA.Item(0).Num)
MessageBox.Show(myA.Item(1).Num)
MessageBox.Show(myA.Item(2).Num)
MessageBox.Show(myA.Item(3).Num)
Public Class MyArrayList
Private _v As List(Of T)
Public Sub New()
_v = New List(Of T)()
End Sub
Public Property Item(ByVal i As Integer) As T
Get
Return _v(i)
End Get
Set(ByVal value As T)
_v(i) = value
End Set
End Property
Public Sub ItemAdd(ByVal Card As String, ByVal Num As Integer)
Dim t As New T
t.Card = Card
t.Num = Num
_v.Add(t)
End Sub
Public Class T
Private _card As String
Private _num As Integer
Public Property Card() As String
Get
Return _card
End Get
Set(ByVal value As String)
_card = value
End Set
End Property
Public Property Num() As Integer
Get
Return _num
End Get
Set(ByVal value As Integer)
_num = value
End Set
End Property
End Class
End Class