productdescriptorinfo.vb

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

Imports Microsoft.VisualBasic
Imports NetShopForge.Common
Namespace NetShopForge.Library.Product

    <Serializable()> _
    Public Class ProductDescriptorInfo
        Public Sub New()
            _isvalid = True
            _ItemOrder = 0
        End Sub
        Private _DescriptorID As Integer
        Private _Productid As Integer
        Private _Descriptor As String
        Private _IsBulletedList As Boolean
        Private _ItemOrder As Integer
        Private _isvalid As Boolean
        Private _Title As String

        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ProductID() As Integer
            Get
                Return _productid
            End Get
            Set(ByVal Value As Integer)
                _productid = Value
            End Set
        End Property

        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Descriptor() As String
            Get
                Return _Descriptor
            End Get
            Set(ByVal Value As String)
                _Descriptor = Value
            End Set
        End Property

        Public Property Title() As String
            Get
                Return _Title
            End Get
            Set(ByVal Value As String)
                _Title = Value
            End Set
        End Property

        ''' <summary>
        ''' 
        ''' </summary>
        Public Property DescriptorID() As Integer
            Get
                Return _DescriptorID
            End Get
            Set(ByVal Value As Integer)
                _DescriptorID = Value
            End Set
        End Property

        Public Property ItemOrder() As Integer
            Get
                Return _ItemOrder
            End Get
            Set(ByVal Value As Integer)
                _ItemOrder = Value
            End Set
        End Property
      
     
        Public Property IsBulletedList() As Boolean
            Get
                Return _IsBulletedList
            End Get
            Set(ByVal Value As Boolean)
                _IsBulletedList = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property IsValid() As Boolean
            Get
                Return _isvalid
            End Get
            Set(ByVal Value As Boolean)
                _isvalid = Value
            End Set
        End Property


    End Class
End Namespace