ASP.NET入门教程 13.3.1 购物对象[7]

创建称为Items的特性在其中存储CartItems的List:

Public Property Items() As List(Of CartItem)

Get

Return _items

End Get

Set(ByVal value As List(Of CartItem))

_items = value

End Set

End Property

然后开始个操作作为方法对这些操作进行编码第一个方法插入需要购物车需要的所有信息即ProductID Quantity Price ProductName和ProductImageUrl:

Public Sub Insert(ByVal ProductID As Integer ByVal Price As Double ByVal Quantity As Integer ByVal ProductName As String ByVal ProductImageUrl As String)

Dim ItemIndex As Integer = ItemIndexOfID(ProductID)

If ItemIndex = Then

Dim NewItem As New CartItem()

NewItemProductID = ProductID

NewItemQuantity = Quantity

NewItemPrice = Price

NewItemProductName = ProductName

NewItemProductImageUrl = ProductImageUrl

_itemsAdd(NewItem)

Else

_items(ItemIndex)Quantity +=

End If

_lastUpdate = DateTimeNow()

End Sub

向购物车中添加新的商品（Insert方法）时需要创建一个索引来跟蹤这一点如果索引是一可知道该商品不在购物车中需要创建一个新的购物车商品该商品具有附带的ProductID Quantity Price ProductName和ProductImageUrl详情如果在购物车中只需要将数量加因为最近已经对购物车进行了更新也需要在lastUpdate变量中记录这一点并且使用DateTimeNow（）函数记录当前的日期和时间

[] [] [] [] [] [] [] [] []