怎样找到鼠标指针的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 ' 得到坐标
本内容试读结束，登录后可阅读更多
下载后可阅读完整内容，剩余1页未读，立即下载
