VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 怎样找到鼠标指针的XY坐标?
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10768, 日期:2001-12-10
怎样找到鼠标指针的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运行程序,移动鼠标注意观察两个标签对象的变化。