vb 获取鼠标坐标
答案:1 悬赏:80 手机版
解决时间 2021-04-03 03:40
- 提问者网友：謫仙
- 2021-04-02 11:36
vb 获取鼠标坐标
最佳答案
- 五星知识达人网友：像个废品
- 2021-04-02 11:54
建一个Timer1,Text1,Text2.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
End Sub
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim p As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯