productattributetemplateinfo.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 70 行

Namespace NetShopForge.Library.Product
    <Serializable()> Public Class ProductAttributeTemplateInfo
        Private _productattributeid As Integer
        Private _attributename As String
        Private _selectionlist As String
        Private _description As String
        Private _AttributeType As ProductAttributeType

        Public Property ProductAttributeID() As Integer
            Get
                Return _productattributeid
            End Get
            Set(ByVal Value As Integer)
                _productattributeid = Value
            End Set
        End Property

        Public Property AttributeName() As String
            Get
                Return _attributename
            End Get
            Set(ByVal Value As String)
                _attributename = Value
            End Set
        End Property

        Public Property SelectionList() As String
            Get
                Return _selectionlist
            End Get
            Set(ByVal Value As String)
                _selectionlist = Value
            End Set
        End Property

        Public Property Description() As String
            Get
                Return _description
            End Get
            Set(ByVal Value As String)
                _description = Value
            End Set
        End Property

        Public Property AttributeType() As ProductAttributeType
            Get
                Return _AttributeType
            End Get
            Set(ByVal value As ProductAttributeType)
                _AttributeType = value
            End Set
        End Property


        Public ReadOnly Property DisplaySelectionList() As String
            Get
                Dim attributes As ProductAttributeCollection = CType(NetShopForge.Common.Utility.XmlToObject(GetType(ProductAttributeCollection), _selectionlist), ProductAttributeCollection)
                Dim AttributeInfo As ProductAttributeInfo = attributes.Item(0)
                Return AttributeInfo.SelectionList
            End Get
        End Property

    End Class

End Namespace