c_csdn.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Public Class C_CSDN
    Private _Content As String
    Private _credit As String
    Private _EndState As String
    Private _Point As Decimal
    Private _PostDateTime As DateTime
    Private _PostUserId As Decimal
    Private _PostUserName As String
    Private _PostUserNickName As String
    Private _rank As String
    Private _ranknum As String
    Private _ReadNum As String
    Private _ReplyID As Decimal
    Private _ReplyNum As Decimal
    Private _RoomId As Decimal
    Private _RoomName As String
    Private _TopicId As Decimal
    Private _TopicName As String
    Public Property TopicName() As String
        Get
            Return Me._TopicName
        End Get
        Set(ByVal value As String)
            Me._TopicName = value
        End Set
    End Property


    Public Property TopicId() As Decimal
        Get
            Return Me._TopicId
        End Get
        Set(ByVal value As Decimal)
            Me._TopicId = value
        End Set
    End Property


    Public Property RoomName() As String
        Get
            Return Me._RoomName
        End Get
        Set(ByVal value As String)
            Me._RoomName = value
        End Set
    End Property


    Public Property RoomId() As Decimal
        Get
            Return Me._RoomId
        End Get
        Set(ByVal value As Decimal)
            Me._RoomId = value
        End Set
    End Property


    Public Property ReplyNum() As Decimal
        Get
            Return Me._ReplyNum
        End Get
        Set(ByVal value As Decimal)
            Me._ReplyNum = value
        End Set
    End Property


    Public Property ReplyID() As Decimal
        Get
            Return Me._ReplyID
        End Get
        Set(ByVal value As Decimal)
            Me._ReplyID = value
        End Set
    End Property


    Public Property ReadNum() As String
        Get
            Return Me._ReadNum
        End Get
        Set(ByVal value As String)
            Me._ReadNum = value
        End Set
    End Property


    Public Property ranknum() As String
        Get
            Return Me._ranknum
        End Get
        Set(ByVal value As String)
            Me._ranknum = value
        End Set
    End Property


    Public Property rank() As String
        Get
            Return Me._rank
        End Get
        Set(ByVal value As String)
            Me._rank = value
        End Set
    End Property


    Public Property PostUserNickName() As String
        Get
            Return Me._PostUserNickName
        End Get
        Set(ByVal value As String)
            Me._PostUserNickName = value
        End Set
    End Property


    Public Property PostUserName() As String
        Get
            Return Me._PostUserName
        End Get
        Set(ByVal value As String)
            Me._PostUserName = value
        End Set
    End Property


    Public Property PostUserId() As Decimal
        Get
            Return Me._PostUserId
        End Get
        Set(ByVal value As Decimal)
            Me._PostUserId = value
        End Set
    End Property


    Public Property PostDateTime() As DateTime
        Get
            Return Me._PostDateTime
        End Get
        Set(ByVal value As DateTime)
            Me._PostDateTime = value
        End Set
    End Property


    Public Property Point() As Decimal
        Get
            Return Me._Point
        End Get
        Set(ByVal value As Decimal)
            Me._Point = value
        End Set
    End Property


    Public Property EndState() As String
        Get
            Return Me._EndState
        End Get
        Set(ByVal value As String)
            Me._EndState = value
        End Set
    End Property


    Public Property credit() As String
        Get
            Return Me._credit
        End Get
        Set(ByVal value As String)
            Me._credit = value
        End Set
    End Property


    Public Property Content() As String
        Get
            Return Me._Content
        End Get
        Set(ByVal value As String)
            Me._Content = value
        End Set
    End Property


    Public Sub New()
        Me._Content = ""
        Me._EndState = ""
        Me._PostDateTime = DateTime.Now
        Me._PostUserName = ""
        Me._PostUserNickName = ""
        Me._rank = ""
        Me._ranknum = ""
        Me._ReadNum = ""
        Me._RoomName = ""
        Me._TopicName = ""
    End Sub



End Class