怎样找到鼠标指针的XY坐标(VB)

• 关 键 词：

输入以下代码声明API函数。

Option Explicit

Type POINTAPI ' Declare types

x As Long

y As Long

End Type

Declare Function GetCursorPos Lib "user32" _(lpPoint As POINTAPI) As Long ' Declare API

把焦点移到Form1，添加两个标签对象（Label）和一个计时器对象（Timer1），把计时器的Interval属性设为1，然后双击Form1的任何区域，在代码窗口中输入：

Option Explicit

Dim z As POINTAPI ' 声明变量

Private Sub Timer1_Timer()

GetCursorPos z ' 得到坐标

Label1 = "x: " & z.x ' 得到X坐标

Label2 = "y: " & z.y ' 得到Y坐标

End Sub

【深 度 阅 读】 相 关 文 章

高危ANI鼠标指针漏洞 微软官方今日凌晨补丁更新（

Flash 鼠标指针

增添绚丽色彩 QQ空间鼠标指针免费用

下载：Vista Aero主题鼠标指针！