cline.vb

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

Public Class CLine
    Private m_Begin, m_End As PointF

    Public Property LBegin() As PointF
        Get
            Return m_Begin
        End Get
        Set(ByVal Value As PointF)
            m_Begin = Value
        End Set
    End Property

    Public Property LEnd() As PointF
        Get
            Return m_End
        End Get
        Set(ByVal Value As PointF)
            m_End = Value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal pBegin As PointF, ByVal pEnd As PointF)
        m_Begin = pBegin
        m_End = pEnd
    End Sub

    Public Sub Draw(ByVal g As Graphics, ByVal aPen As Pen)
        g.DrawLine(aPen, m_Begin, m_End)
    End Sub
End Class