vb中怎么获取鼠标的坐标

 我来答
伈雨_
2017-05-25 · TA获得超过299个赞
知道小有建树答主
回答量:233
采纳率:100%
帮助的人:91.2万
展开全部
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Dim p As POINTAPI
GetCursorPos p
Cls
Print p.X, p.Y
End Sub

添加一个timer控件,然后贴上代码就可以获取鼠标坐标

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式