首页 > > 程序设计 > VB >

获取鼠标在屏幕上的位置

2008-02-23 06:54:55来源：互联网阅读 ()

在标准EXE工程添加一个Timer、两个Label控件，各属性取默认值。然后给工程拷贝如下代码：

Option Explicit

'申明API函数
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 Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

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

上一篇：获得MouseLeave的方法
下一篇：处理过程时的鼠标显示

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有