winkelwagen.aspx

Dim w As New winkelwagen()

Sub cmdWD3200JD_Click(sender As Object, e As EventArgs)
w.addItem("Western Digital 320GB 8MB (7200/150)" )
End Sub

Sub cmdWD2500JD_Click(sender As Object, e As EventArgs)
w.addItem("Western Digital 250GB 8MB (7200/150)" )
End Sub

Sub cmdWD2000JD_Click(sender As Object, e As EventArgs)
w.addItem("Western Digital 200GB 8MB (7200/150)" )
End Sub

Sub cmdAMD3000_Click(sender As Object, e As EventArgs)
w.addItem("AMD Athlon 3000+ 64bit Socket 939" )
End Sub

Sub cmdAMD3200_Click(sender As Object, e As EventArgs)
w.addItem("AMD Athlon 3200+ 64bit Socket 939" )
End Sub

Sub cmdOverzicht_Click(sender As Object, e As EventArgs)
Listbox1.DataSource = w.getList()
Listbox1.DataBind()
Label1.Text = w.getList().Count
End Sub

winkelwagen.vb

Imports System
Imports System.Collections

Namespace Winkel

Public Class Winkelwagen

Public items As ArrayList

Public Sub New()
items = new ArrayList()
End Sub

Public Sub addItem(byval item as String)
items.Add(item)
End Sub

Public Sub delItem(byval item as String)
items.Remove(item)
End Sub

Public function getList() as ArrayList
return items
End function

End Class

End Namespace