Question

I’ve been banging my head against a wall for sometime on this one.
I’m trying to create a class for storing data on People with another class to store their Bank Transactions.

Ideally, this all be hidden away and leave only simple statments, declarations and functions available to the programmer. These will include:

• Dim Clients As New ClientList
• Clients.Count 'readonly integer
• Clients.Add("S")
• Clients.Refresh()
• Clients(n).Remove()
• Clients(n).Transaction.Add()
• Clients(n).Transaction(n).Remove()

I know this is possible as these exist in the Listbox Class though can’t figure out how it’s done.

Any help would be appreciated.
Thanks in advance!

Answer 1

Create a Transaction and a Client class

Public Class Transaction
    'TODO: Implement Transaction
End Class

Public Class Client
    Public ReadOnly Transactions As List(Of Transaction) = New List(Of Transaction)

    Public Sub New(ByVal name As String)
        Me.Name = name
    End Sub

    Public Name As String
End Class

Create a ClientList class

Public Class ClientList
    Inherits List(Of Client)

    Public Overloads Sub Add(ByVal name As String)
        Add(New Client(name))
    End Sub

    Public Sub Refresh()
        ' Do what ever you want Refresh to do
    End Sub
End Class

You can then use the client list like this

Dim clients As New ClientList

clients.Add("S")
' Or
clients.Add(New Client("T"))

Dim n As Integer = clients.Count
Dim m As Integer = clients(0).Transactions.Count

clients.Refresh()
clients.RemoveAt(5)
clients(n - 1).Transactions.Add(New Transaction())
clients(n - 1).Transactions.RemoveAt(2)
Dim name As String = clients(0).Name
Dim client As Client = clients(0)