[求助]如何获的当前鼠标的位置 xiexie
当我门用使用动态控件，生成exe后，那些控件怎么又不见了
请问要怎么办 ？？/谢谢

[此贴子已经被作者于2006-12-29 16:04:37编辑过]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cls
print"当前鼠标位于:";X;",";Y
End Sub

楼上的是获取在窗体中的Position..如果要想获取整个Screen中Cursor的position的话,可以用GetCursorPos win32api

API

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '用来获取鼠标位置
Public Type POINTAPI
x As Long
y As Long
End Type
GetCursorPos Pnt
X1 = Pnt.x '返回当前坐标X
Y1 = Pnt.y '返回当前坐标Y