productimageinfo.vb

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

Namespace NetShopForge.Library.Product




    Public Class ProductImageInfo

        Private _ProductImageid As Integer
        Private _productid As Integer
        Private _imagepath As String
        Private _itemorder As Integer
        Private _type As ProductImageType
        Private _caption As String
        Private _width As Integer
        Private _height As Integer
        Private _saveName As String
        Private _savePath As String

   
        Public Property ProductImageID() As Integer
            Get
                Return _ProductImageid
            End Get
            Set(ByVal Value As Integer)
                _ProductImageid = Value
            End Set
        End Property
        ''' <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 ImagePath() As String
            Get
                Return _imagepath
            End Get
            Set(ByVal Value As String)
                _imagepath = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ItemOrder() As Integer
            Get
                Return _itemorder
            End Get
            Set(ByVal Value As Integer)
                _itemorder = Value
            End Set
        End Property


        Public Property Caption() As String
            Get
                Return _caption
            End Get
            Set(ByVal value As String)
                _caption = value
            End Set
        End Property



        Public Property SavePath() As String
            Get
                Return _savePath
            End Get
            Set(ByVal value As String)
                _savePath = value
            End Set
        End Property


        Public Property SaveName() As String
            Get
                Return _saveName
            End Get
            Set(ByVal value As String)
                _saveName = value
            End Set
        End Property


        Public Property Type() As ProductImageType
            Get
                Return _type
            End Get
            Set(ByVal value As ProductImageType)
                _type = value
            End Set
        End Property


        Public Property Width() As Integer
            Get
                Return _width
            End Get
            Set(ByVal value As Integer)
                _width = value
            End Set
        End Property


        Public Property Height() As Integer
            Get
                Return _height
            End Get
            Set(ByVal value As Integer)
                _height = value
            End Set
        End Property



   
        Public Sub New()
            _width = 0
            _height = 0
            _itemorder = 0

        End Sub
    End Class


    Public Enum ProductImageType
        Normal = 0
        Thumbnail = 1
        MultipleView = 2
    End Enum
End Namespace