controlcmd.vb

来自「广西百色247台电视发射机监控源代码.已经过实践」· VB 代码 · 共 41 行

Public Class ControlCmd
    ''''''''''''控制命令登记修改表
    Private iID As Int64                       '''记录编号
    Private iTransmitID As Integer             '''设备编号
    Private iControlType As Integer            '''控制类型 0－开机，1－关机，2－数据刷新
    Private iControlResult As Integer          '''执行结果 0－等待，1－成功，2－出错
    Public Property ID() As Integer
        Get
            Return iID
        End Get
        Set(ByVal Value As Integer)
            iID = Value
        End Set
    End Property
    Public Property TransmitID() As Integer
        Get
            Return iTransmitID
        End Get
        Set(ByVal Value As Integer)
            iTransmitID = Value
        End Set
    End Property
    Public Property ControlResult() As Integer
        Get
            Return iControlResult
        End Get
        Set(ByVal Value As Integer)
            iControlResult = Value
        End Set
    End Property
    Public Property ControlType() As Integer
        Get
            Return iControlType
        End Get
        Set(ByVal Value As Integer)
            iControlType = Value
        End Set
    End Property

End Class