Public Class CartItem Public Product As Productpage Public Quantity As Integer End Class
Private Sub DisplayCart() ListBox1.Items.Clear() Dim CartItem As CartItem Dim CartEntry As DictionaryEntry For Each CartEntry In Cart CartItem = CType(CartEntry.Value, CartItem) ListBox1.Items.Add(CartItem.Display) Next End Sub
hiyakaru wrote: Dim CartItem As CartItem
Dim myCartItem As CartItem
myCartItem = CType(CartEntry.Value, CartItem)
hiyakaru wrote:CartItem = CType(CartEntry.Value, CartItem)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)