VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 获取鼠标在屏幕上的位置
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10833, 日期:2001-11-17
获取鼠标在屏幕上的位置
作者:土人
在标准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