crectangle.vb

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

Public Class CRectangle
    Implements IGElement

    Private m_ID As Integer
    Private m_LT, m_RB As PointF

    Public Property ID() As Integer Implements IGElement.ID
        Get
            Return m_ID
        End Get
        Set(ByVal newValue As Integer)
            m_ID = newValue
        End Set
    End Property

    '矩形左上角、右下角属性定义
    Public Sub Draw() Implements IGElement.Draw
        Console.WriteLine("绘矩形。")
    End Sub

End Class