cposition.vb

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

<Serializable()> Public Class CPosition
    Private m_x, m_y As Single

    Public Property x() As Single
        Get
            Return m_x
        End Get
        Set(ByVal Value As Single)
            m_x = Value
        End Set
    End Property

    Public Property y() As Single
        Get
            Return m_y
        End Get
        Set(ByVal Value As Single)
            m_y = Value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal x As Single, ByVal y As Single)
        m_x = x
        m_y = y
    End Sub

    Public Sub Draw(ByVal g As Graphics)
        g.DrawEllipse(Pens.Blue, m_x - 3, m_y - 3, 6, 6)
    End Sub

End Class