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

 

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

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

版权声明：本文为cike_1111原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。