cline.vb

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

Imports System.Drawing.Drawing2D

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

    Public Function Pick(ByVal p As Point) As Boolean
        Dim gp As New GraphicsPath()
        gp.AddLine(m_Begin, m_End)
        If gp.IsOutlineVisible(p.X, p.Y, Pens.Blue) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class