cposition.vb

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

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 xx As Single, ByVal yy As Single)
        m_x = xx
        m_y = yy
    End Sub

    Public Sub Draw(ByVal g As Graphics)
        g.FillEllipse(Brushes.Blue, m_x - 4, m_y - 4, 8, 8)
    End Sub
End Class