cbox.vb

来自「苏金明编写的《用VB.NET和VC#.NET开发交互式CAD系统》一书的源代码」· VB 代码 · 共 40 行

Public Class CBox
    Private m_minX, m_minY, m_maxX, m_maxY As Single

    Public Property minX() As Single
        Get
            Return m_minX
        End Get
        Set(ByVal Value As Single)
            m_minX = Value
        End Set
    End Property

    Public Property minY() As Single
        Get
            Return m_minY
        End Get
        Set(ByVal Value As Single)
            m_minY = Value
        End Set
    End Property

    Public Property maxX() As Single
        Get
            Return m_maxX
        End Get
        Set(ByVal Value As Single)
            m_maxX = Value
        End Set
    End Property

    Public Property maxY() As Single
        Get
            Return m_maxY
        End Get
        Set(ByVal Value As Single)
            m_maxY = Value
        End Set
    End Property

End Class