'Visual Basic 2010 Nut van OOP Object Oriented Programming
Class Loans
    Private m_Count As Integer
    Private m_Capacity As Integer = 16
    Private m_Items(m_Capacity - 1) As Loan
    Public Sub Add(ByVal item As Loan)
        If Count = m_Capacity Then
            m_Capacity *= 2
            ReDim Preserve m_Items(m_Capacity - 1)
        End If
        m_Items(Count) = item
        m_Count += 1
    End Sub
    Public Sub RemoveAt(ByVal index As Integer)
        Dim shiftIndex As Integer
        For shiftindex = index To Count - 1
            m_Items(shiftindex) = m_Items(shiftindex + 1)
        Next
        m_Items(shiftIndex) = Nothing
        m_Count -= 1
    End Sub
    Public ReadOnly Property Count() As Integer
        Get
            Count = m_Count
        End Get
    End Property
    Default Public ReadOnly Property Item(ByVal index As Integer) As Loan
        Get
            Item = m_Items(index)
        End Get
    End Property
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.