VB捕捉鼠标坐标

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:05:14
程序运行后，载入一张图片，捕捉鼠标在图片上单击的绝对坐标（相对于窗体的坐标）；
要求：移动窗口后，鼠标在图片上同一地点单击时捕捉到的坐标不变

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1
Print "坐标为(" & (X + .Left) \ Screen.TwipsPerPixelX & "," & (Y + .Top) \ Screen.TwipsPerPixelY & ")"
End With
End Sub

建一个Picture1.图片任意。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Print "在窗体上的绝对坐标为：("; X + Picture1.Left; ","; Y + Picture1.Top; ")"
End Sub