你的问题很模糊,WINDOWS系统的座标可以自定义,你是想得到鼠标在桌面上所在的xy位置还是特定窗口中的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运行程序,移动鼠标注意观察两个标签对象的变化。