Question

VB 获取当前鼠标指向的控件句柄和在控件上的坐标值!

VB 获取当前鼠标指向的 控件句柄 和在 控件上的坐标值 !
(不是屏幕坐标值,是在控件上的鼠标坐标值)
如题,代码该如何写 请写个代码参考谢谢!!

Answer 1

在VB工程里新建一个Form1
在Form1上添加一个按纽Command1 和两个标签Label1和Label2
然后在Form1代码窗口里粘贴如下代码:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Single
Dim b As Single
Me.Label1 = X
Me.Label2 = Y
End Sub
按F5运行后,鼠标晃动到按纽Command1上时,可以看到Label1和Label2里面有数值在快速变化
该数字就是鼠标在按纽上的XY坐标.
Private Sub Command1_MouseMove()就是Command1的鼠标移动事件.
同理:
所有拥有MouseMove事件的控件都能用这个方法取得鼠标的当前坐标.