ccreatetext.vb

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

'创建文本类
Public Class CCreateText

    Implements ICommand

    Public Sub LButtonDown(ByVal g As Graphics, ByVal aPos As PointF) Implements ICommand.LButtonDown
        Dim strContent As String

        '利用输入对话框输入文本内容
        strContent = InputBox("请输入标注文本：")

        Dim newText As New CText(strContent, aPos)
        newText.Draw(g, CGElement.geDrawMode.Normal)

        ges.Add(newText)

    End Sub


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

    End Sub

    '单击鼠标右键时的绘图行为
    Public Sub RButtonDown(ByVal g As Graphics, ByVal aPos As PointF) Implements ICommand.RButtonDown

    End Sub

End Class