Question

我要能实现画图程序中的画曲线功能的完整vb代码，哪位高手能够帮忙？

Answer 1

Dim isDraw As Boolean
'-----------------------------------------------------
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        isDraw = True
        CurrentX = X
        CurrentY = Y
    End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If isDraw Then
        Line -(X, Y), vbRed, B
    End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        isDraw = False
    End If
End Sub
'复制到窗体模块中

追问

您好，我是要windows自带的画图程序中画曲线的完整vb代码，您能给我写一下吗？可能要用到api函数PolyBezier ；我勉强画一条 Bezier还是可以的，但是要象画图程序中画曲线那样完美就做不到了。

追答

大了，放不下，把文本内容复制到窗体模块中。

还有点问题，在画线的过程中也会驱除掉其它的图形，还的再研究研究。