responsedetailcollection.vb

Visual Basic.NET控件时尚编程百例

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