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（）函數記錄當前的日期和時間

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

From:http://tw.wingwit.com/Article/program/net/201311/15593.html