uploadimageinfo.vb

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

Namespace NetShopForge.Common.nsfImage

    Public Class UploadImageInfo

        Private _FileName As String
        Private _ImageSavePath As String
        Private _MinSize As Integer = 5 * 1024
        Private _MaxSize As Integer = 300 * 1024
        Private _thumbWidth As Integer = 150
        Private _thumbHeight As Integer = 150
        Private _IsUseThumbnail As Boolean = False

        Public Property FileName() As String
            Get
                Return _FileName
            End Get
            Set(ByVal Value As String)
                _FileName = Value
            End Set
        End Property
        Public Property ImageSavePath() As String
            Get
                Return _ImageSavePath
            End Get
            Set(ByVal Value As String)
                _ImageSavePath = Value
            End Set
        End Property
        Public Property MinSize() As Integer
            Get
                Return _MinSize
            End Get
            Set(ByVal Value As Integer)
                _MinSize = Value
            End Set
        End Property
        Public Property MaxSize() As Integer
            Get
                Return _MaxSize
            End Get
            Set(ByVal Value As Integer)
                _MaxSize = Value
            End Set
        End Property
        Public Property ThumbWidth() As Integer
            Get
                Return _thumbWidth
            End Get
            Set(ByVal Value As Integer)
                _thumbWidth = Value
            End Set
        End Property
        Public Property ThumbHeight() As Integer
            Get
                Return _thumbHeight
            End Get
            Set(ByVal Value As Integer)
                _thumbHeight = Value
            End Set
        End Property
        Public Property IsUseThumbnail() As Boolean
            Get
                Return _IsUseThumbnail
            End Get
            Set(ByVal Value As Boolean)
                _IsUseThumbnail = Value
            End Set
        End Property

    End Class

End Namespace