loworhigh.vb

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

Public Class LowOrHigh
    Private dLow As Double            '''下限
    Private dHigh As Double           '''上限
    Private bisUse As Boolean          '''是否启用
    Public Property Low() As Double
        Get
            Return dLow
        End Get
        Set(ByVal Value As Double)
            dLow = Value
        End Set
    End Property
    Public Property High() As Double
        Get
            Return dHigh
        End Get
        Set(ByVal Value As Double)
            dHigh = Value
        End Set
    End Property
    Public Property isUse() As Boolean
        Get
            Return bisUse
        End Get
        Set(ByVal value As Boolean)
            bisUse = value
        End Set
    End Property
    Public Sub New()
        dLow = 0
        dHigh = 0
        bisUse = False
    End Sub
End Class