VB6: Conocer la posición absoluta del ratón

Septiembre 2017




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


Consulta también

Publicado por Carlos-vialfa. Última actualización: 10 de marzo de 2010 a las 16:06 por Carlos-vialfa.
El documento «VB6: Conocer la posición absoluta del ratón» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.