Obtener posición del ratón

Devuelve la posición del cursor del ratón en cualquier parte de la pantalla, incluso fuera de nuestro formulario.

Copia este código en un formulario e inserta un control Timer “Timer1” con un Interval de 100 milisegundos y una etiqueta “Label1”.

Private Sub Timer1_Timer()
    Dim Posicion As POINTAPI
    
    'Cogemos las posiciones del control en la pantalla
    GetCursorPos Posicion 'el resultado viene dado en pixels
    
    Label1.Caption Posicion.X, Posicion.Y
End Sub

Y además tienes que insertar el siguiente código en un módulo:

Option Explicit

'Para coger las posiciones actuales del cursor en la pantalla
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Type POINTAPI
    X As Long
    Y As Long
End Type
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s