vb中光标在picture框中移动位置，怎样获取光标位置

来源：百度知道 编辑：UC知道 时间：2024/05/26 23:59:43
不使用mousedown\mouseup\mousemove事件，只要光标移动就可以读取其位置并在文中框中显示出来。
谢谢
你定义的是屏幕的左上角为0,0点，我希望picture的左上角为坐标原点（0，0）

添加一个timer控件和一个label控件,下面是代码:
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Timer1_Timer()
Dim p As POINTAPI
GetCursorPos p
Label1.Caption = "x=" & p.x & ", y=" & p.y
End Sub

这个API函数是获取windows窗口屏幕的坐标，而不是当前控件的坐标