items.vb

来自「Visual Basic.NET控件时尚编程百例」· VB 代码 · 共 60 行

Namespace Common

    Public Class Items
        Inherits System.Collections.CollectionBase

        Public Function Add(ByVal strProductID As String, _
                           ByVal strSKU As String, _
                           ByVal strProductName As String, _
                           ByVal strListPrice As String, _
                           ByVal strDescription As String, _
                           ByVal intQuantity As Integer) As Item
            Dim objItem As New Item()
            MyBase.List.Add(objItem)
            objItem.SKU = strSKU
            objItem.ProductID = strProductID
            objItem.ProductName = strProductName
            objItem.ProductDescription = strDescription
            objItem.Quantity = intQuantity
            objItem.UnitPrice = strListPrice
            Return objItem
        End Function

        Public Function Add(ByVal objItem As Item) As Item
            MyBase.List.Add(objItem)
            Return objItem
        End Function

        Default Public ReadOnly Property Item(ByVal Index As Long) As Item
            Get
                Return MyBase.List.Item(Index)
            End Get
        End Property

        Default Public ReadOnly Property Item(ByVal strItemID As String) As Item
            Get
                Dim objItem As Item
                Dim objFoundItem As Item = Nothing
                For Each objItem In MyBase.List
                    If objItem.OrderItemID.Equals(strItemID) Then
                        objFoundItem = objItem
                        Exit For
                    End If
                Next
                Return objFoundItem
            End Get
        End Property

        Public Sub Remove(ByRef objItem As Item)
            MyBase.List.Remove(objItem)
        End Sub

        Public Sub Remove(ByVal strItemID As String)
            Dim objItem As Item = Me.Item(strItemID)
            Me.Remove(objItem)
        End Sub

    End Class

End Namespace