msg.vb

来自「CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN」· VB 代码 · 共 67 行

Public Class Msg
    ' Fields
    Private _编号 As String
    Private _发送方 As String
    Private _接受方 As String
    Private _发送时间 As String
    Private _内容 As String


    Public Sub New()
        Me._发送方 = ""
        Me._发送时间 = ""
        Me._编号 = ""
        Me._内容 = ""
    End Sub

    Public Property 编号() As String
        Get
            Return Me._编号
        End Get
        Set(ByVal value As String)
            Me._编号 = value
        End Set
    End Property

    Public Property 接受方() As String
        Get
            Return Me._接受方
        End Get
        Set(ByVal value As String)
            Me._接受方 = value
        End Set
    End Property


    Public Property 发送方() As String
        Get
            Return Me._发送方
        End Get
        Set(ByVal value As String)
            Me._发送方 = value
        End Set
    End Property


    Public Property 发送时间() As String
        Get
            Return Me._发送时间
        End Get
        Set(ByVal value As String)
            Me._发送时间 = value
        End Set
    End Property


    Public Property 内容() As String
        Get
            Return Me._内容
        End Get
        Set(ByVal value As String)
            Me._内容 = value
        End Set
    End Property

 
End Class