responsedetailcollection.vb

来自「Visual Basic.NET控件时尚编程百例」· VB 代码 · 共 21 行

Public Class ResponseDetailCollection
    Inherits CollectionBase
    Public Sub Add(ByVal detail As ResponseDetail)
        list.Add(detail)
    End Sub

    Public Sub Remove(ByVal detail As ResponseDetail)
        list.Remove(detail)
    End Sub

    Default Public Property Item(ByVal index As Integer) _
    As ResponseDetail
        Get
            Return list.Item(index)
        End Get
        Set(ByVal Value As ResponseDetail)
            list.Item(index) = Value
        End Set
    End Property
End Class