看看
得到了鼠标的坐标后,应该可以知道鼠标有没有动了 可以使用API函数,Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long,来得到鼠标的x,y坐标. 将得到的值返回
Public Type PointAPI
X As Long
Y As Long
End Type 可以这样来写 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dim x1 as long,y1 as long,Point as long
GetCursorPos point
label1.capiont = point.x
label2.capiont = point.y
end sub 这样就可以捕捉到鼠标的坐标了,这样要知道鼠标动不动就很好知道了.
|