crectangle.vb

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

Imports System.Math

Public Class CRectangle
    Private m_basePos, m_desPos As CPosition

    Public Property BasePos() As CPosition
        Get
            Return m_basePos
        End Get
        Set(ByVal Value As CPosition)
            m_basePos = Value
        End Set
    End Property

    Public Property DesPos() As CPosition
        Get
            Return m_desPos
        End Get
        Set(ByVal Value As CPosition)
            m_desPos = Value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal p1 As CPosition, ByVal p2 As CPosition)
        m_basePos = p1
        m_desPos = p2
    End Sub

    Public Sub Draw(ByVal g As Graphics)
        g.DrawRectangle(Pens.Red, Min(m_basePos.x, m_desPos.x), Min(m_basePos.y, m_desPos.y), _
                 Abs(m_basePos.x - m_desPos.x), Abs(m_basePos.y - m_desPos.y))
    End Sub
End Class