www.pudn.com > vb.net_CAD.rar > CRectangle.vb, change:2003-10-10,size:487b


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