Esta pequeña función permite conocer la posición del ratón en relación a la pantalla y no en relación a la hoja o al control que lo contiene.
En un módulo
Declaración:
Public Type POINTAPI
x As Long
y As Long
End Type
Public m_CursorPos As POINTAPI
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
La función
Sub GetCurseur()
Dim LonCStat As Long
LonCStat = GetCursorPos&(m_CursorPos)
'para poder utilizar el resultado, los datos deben ser convertidos a Pixel.
m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX
m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY
End Sub
Véase también
Comunidad de asistencia y consejos.
El artículo original fue escrito por
lermite222. Traducido por
Carlos-vialfa.
