UC知道VB如何绘制鼠标拖动轨迹
来源：百度知道 编辑：UC知道 时间：2024/06/17 06:55:33
请教，VB如何根据鼠标拖动轨迹，来绘制自由曲线的？我是一VB初学者，为了研究，现在刚开始学习VB，时间紧任务重，还请各位不吝赐教，有程序源码，注解的，不胜感激，不胜感激！！！！！
非常感谢大家的，尤其是“ hawking_xu”先生。都是自己确认后再给予指导，非常感谢！！
在我的系统中运行了您的程序，发现无法运行，今天我才知道是我弄错了我的版本，我用的是VB.net。
如果可能，请大家，再给我一个VB.net一个画图程序可以吗？麻烦您了，先谢谢了。
其实，我这个实验，具体情况是这样的，我是要用画图程序，拖动画图（自由画图），
来计算每次拖动的时间，拖动距离，以及拖动过程中速度的变化情况的。
不过基于我的底子，看懂并完成测试这样的程序估计需要点时间，
所以请大家只是简单给我一个画图程序，我自己再一点一点弄弄看看。
如果，有哪位能给我一个这么全面复杂程序，那就太好了，估计我这点分是无以报答的了吧！！！
非常感谢大家的，尤其是“ hawking_xu”先生。都是自己确认后再给予指导，非常感谢！！
在我的系统中运行了您的程序，发现无法运行，今天我才知道是我弄错了我的版本，我用的是VB.net。
如果可能，请大家，再给我一个VB.net一个画图程序可以吗？麻烦您了，先谢谢了。
其实，我这个实验，具体情况是这样的，我是要用画图程序，拖动画图（自由画图），
来计算每次拖动的时间，拖动距离，以及拖动过程中速度的变化情况的。
不过基于我的底子，看懂并完成测试这样的程序估计需要点时间，
所以请大家只是简单给我一个画图程序，我自己再一点一点弄弄看看。
如果，有哪位能给我一个这么全面复杂程序，那就太好了，估计我这点分是无以报答的了吧！！！
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
我调试成功的例子。
