捕获鼠标位置[在屏幕上的位置]

 

窗体内需要以下几个控件:

label1       label2     timer1

设置:

timer1的间隔为1

代码部分:

 

Private  Declare  Function  GetCursorPos Lib  " user32 "  (lpPoint  As  POINTAPI)  As   Long

Private  Type POINTAPI  '  声明数据类型
x  As   Long
y  As   Long
End  Type

Dim  z  As  POINTAPI  '  变量

Private   Sub  Timer1_Timer()
GetCursorPos z  '  获取坐标
Label1.Caption  =   " x:  "   &  z.x  *   15
Label2.Caption  =   " y:  "   &  z.y  *   15
End Sub