怎样找到鼠标指针的XY坐标？

来源：作者：出处：巧巧读书 2006-11-25 进入讨论组

关键词：

　　怎样找到鼠标指针的XY坐标？

在很多的作图软件中都有一个小的区域显示当前屏幕上的光标位置，这利用API函数非常容易做到，下面的例子将演示使用代码如何返回当前光标的XY的坐标值。
步骤：

在VB5中建立一个新项目文件，Form1使用默认设置.

选择菜单的“Project/add Module”，建立一个新的模块文件“Moudule1”。
输入以下代码声明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

5、按F5运行程序，移动鼠标注意观察两个标签对象的变化。浏览地址： http://www.qqread.com/vb/e282051.html 进入讨论组讨论。