VB中如何获取两个鼠标坐标的差值并显示

显示全部楼层 · 2011-7-22 11:17:14

我想利用一个timer获取当前鼠标的X轴坐标点和上一毫秒的鼠标X轴坐标点，然后显示在2个text框中，然后在第三个text框中显示当前鼠标的X轴坐标值和上一毫秒的鼠标X轴坐标值的差，请问这个怎么写，以下是我的程序，只有前半部分，我不会写关于坐标差的那部分，请高手指教一下
Private Sub Timer1_Timer()
s = GetCursorPos(position)
Form1.Text1.Text = Form1.Text2.Text
Form1.Text2.Text = position.X
End Sub

千问 · 2011-7-22 11:17:14

Private Sub Timer1_Timer()s = GetCursorPos(position)Form1.Text3.Text =position.X-val(Form1.Text2.Text)Form1.Text1.Text = Form1.Text2.Text Form1.Text2.Text = position.XEnd Sub 不过在1毫秒的时间里，你能看清那些数字吗？所以应当排除对同一个位置的反复检测。Private Sub Timer1_Timer()s = GetCursorPos(position)If (position.XVal(Form1.Text2.Text)) The...