vb中怎么获取鼠标的坐标
1个回答
展开全部
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控件，然后贴上代码就可以获取鼠标坐标
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
北京丹青华瑞科贸
2025-01-08 广告
瑞士丹青科技集团成立于1986年，是集研发、生产、销售、技术服务于一体的计量检测设备和几何量测量解决方案供应商...
点击进入详情页
本回答由 北京丹青华瑞科贸提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
