捕获鼠标位置[在屏幕上的位置]

本文介绍了一个使用VB编写的简单程序,该程序能够实时显示鼠标指针在屏幕上的坐标位置,并通过定时器(timer1)每秒更新一次坐标信息。坐标值通过两个标签(Label1和Label2)展示在窗体上,x轴和y轴坐标均乘以15进行显示。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

窗体内需要以下几个控件:

label1       label2     timer1

设置:

timer1的间隔为1

代码部分:

 

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI ' 声明数据类型
As Long
As Long
End Type

Dim z As POINTAPI ' 变量

Private Sub Timer1_Timer()
GetCursorPos z 
' 获取坐标
Label1.Caption = "x: " & z.x * 15
Label2.Caption 
= "y: " & z.y * 15
End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值