简单代码如下,测试通过 功能就是在窗体上画任意光滑的曲线Dim x1 As Long Dim y1 As Long Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X y1 = Y End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Line (x1, y1)-(X, Y) x1 = X y1 = Y End Sub
功能就是在窗体上画任意光滑的曲线Dim x1 As Long
Dim y1 As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line (x1, y1)-(X, Y)
x1 = X
y1 = Y
End Sub