知识大全 ASP.NET入门教程 13.3.1 购物对象[4]

Posted 2022-07-16 知

篇首语：旦旦而学之，久而不怠焉，迄乎成。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET入门教程 13.3.1 购物对象[4]相关的知识，希望对你有一定的参考价值。

ASP.NET入门教程 13.3.1 购物对象[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

（）在Cartltem类下面添加如下代码创建WroxShoppingCart对象

<Serializable()> _

Public Class WroxShoppingCart

Private _dateCreated As DateTime

Private _lastUpdate As DateTime

Private _items As List(Of CartItem)

Public Sub New()

_items = New List(Of CartItem)

_dateCreated = DateTime Now

End Sub

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

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()

NewItem ProductID = ProductID

NewItem Quantity = Quantity

NewItem Price = Price

NewItem ProductName = ProductName

NewItem ProductImageUrl = ProductImageUrl

_items Add(NewItem)

Else

_items(ItemIndex) Quantity +=

End If

_lastUpdate = DateTime Now()

End Sub

Public Sub Update(ByVal RowID As Integer ByVal ProductID As Integer ByVal Quantity As Integer ByVal Price As Double)

Dim Item As CartItem = _items(RowID)

Item ProductID = ProductID

Item Quantity = Quantity

Item Price = Price

_lastUpdate = DateTime Now()

End Sub

Private Function ItemIndexOfID(ByVal ProductID As Integer) As Integer

Dim index As Integer

For Each item As CartItem In _items

If item ProductID = ProductID Then

Return index

End If

index +=

Return

End Function

Public Sub DeleteItem(ByVal rowID As Integer)

_items RemoveAt(rowID)

_lastUpdate = DateTime Now()

End Sub

Public ReadOnly Property Total() As Double

Get

Dim t As Double

If _items Is Nothing Then

Return

End If

For Each Item As CartItem In _items

t += Item LineTotal

Return t

End Get

End Property

End Class

End Namespace

（）保存这个页面遗憾的是不可以对这个类进行任何操作直到开始实例化对象的实例因此这儿还不会看到任何内容

cha138/Article/program/net/201311/15596