cselect.vb

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

Public Class CSelect
    Implements ICommand

    '单击鼠标左键时的绘图行为
    Public Sub LButtonDown(ByVal g As System.Drawing.Graphics, ByVal aPos As System.Drawing.PointF) Implements CAD_Net.ICommand.LButtonDown
        Dim i As Integer
        For i = 0 To ges.Count - 1
            '如果图元被拾取，则用选择模式绘制图元
            '并将该图元添加到选择集中去
            If (ges(i).Pick(aPos) = True) Then
                ges(i).Draw(g, CGElement.geDrawMode.Selec)
                geSels.Add(ges(i))
            End If
        Next
    End Sub

    Public Sub MouseMove(ByVal g As System.Drawing.Graphics, ByVal aPos As System.Drawing.PointF) Implements CAD_Net.ICommand.MouseMove

    End Sub

    Public Sub RButtonDown(ByVal g As System.Drawing.Graphics, ByVal aPos As System.Drawing.PointF) Implements CAD_Net.ICommand.RButtonDown

    End Sub
End Class