Question

VB如何绘制鼠标拖动轨迹

请教，VB如何根据鼠标拖动轨迹，来绘制自由曲线的？我是一VB初学者，为了研究，现在刚开始学习VB，时间紧任务重，还请各位不吝赐教，有程序源码，注解的，不胜感激，不胜感激！！！！！
非常感谢大家的，尤其是“ hawking_xu”先生。都是自己确认后再给予指导，非常感谢！！
在我的系统中运行了您的程序，发现无法运行，今天我才知道是我弄错了我的版本，我用的是VB.net。

如果可能，请大家，再给我一个VB.net一个画图程序可以吗？麻烦您了，先谢谢了。
其实，我这个实验，具体情况是这样的，我是要用画图程序，拖动画图（自由画图），
来计算每次拖动的时间，拖动距离，以及拖动过程中速度的变化情况的。
不过基于我的底子，看懂并完成测试这样的程序估计需要点时间，
所以请大家只是简单给我一个画图程序，我自己再一点一点弄弄看看。

如果，有哪位能给我一个这么全面复杂程序，那就太好了，估计我这点分是无以报答的了吧！！！

Answer 1

Dim xx As Double, yy As Double

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If xx = 0 And yy = 0 Then

        xx = X: yy = Y

    Else

        Form1.Line (xx, yy)-(X, Y), 1

    End If

    xx = X: yy = Y

End Sub

我调试成功的例子。

Answer 2

Dim xx As Double, yy As Double
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If xx = 0 And yy = 0 Then
        xx = X: yy = Y
    Else
        Form1.Line (xx, yy)-(X, Y), 1
    End If
    xx = X: yy = Y
End Sub
我调试成功的例子。

Answer 3

'添加一个picture控件

dim aa as boolean '判断鼠标是否按下，aa随便取的，你也可以用其他的。
Private Sub Form_Load()
Picture1.DrawWidth = 5
aa = False
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.PSet (X, Y)
aa = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If aa = True Then
Picture1.PSet (X, Y)
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
aa = False
End Sub