如何获得vb中鼠标在窗口的坐标

如何获得vb中鼠标在窗口的坐标
a>
这么简单的问题，楼上不回就别光给个API完事！

直接复制到vb中运行，顺便给你一个显示坐标的代码，需要添加两个 label~呵呵，满意的话，给分哦~

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_Click()
Dim firendless As POINTAPI

GetCursorPos firendless
MsgBox " 鼠标x位置：" & firendless.X & " 鼠标y位置：" & firendless.Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = (X)
Label2.Caption = (Y)
End Sub
本贴来自ZDNetChina中文社区 http://bbs. ,本贴地址：http://bbs./viewthread.php?tid=563276