newssubscriptioninfo.vb

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

Namespace NetShopForge.Library.News

    Public Class NewsSubscriptionInfo
        Public Sub New()
        End Sub
        Private _Newcategoryid As Integer
        Private _email As String
        Private _isvalid As Boolean
        Private _startdata As DateTime
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property NewCategoryID() As Integer
            Get
                Return _Newcategoryid
            End Get
            Set(ByVal Value As Integer)
                _Newcategoryid = value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Email() As String
            Get
                Return _email
            End Get
            Set(ByVal Value As String)
                _email = 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
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property StartData() As DateTime
            Get
                Return _startdata
            End Get
            Set(ByVal Value As DateTime)
                _startdata = value
            End Set
        End Property
    End Class

End Namespace