Situar el cursor en una posición especifica

Establece la posición del cursor. Las coordenadas son absolutas y se miden en pixels.

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Sub Posicionar_Cursor(X As Long, Y As Long) 
    Dim Res As Long

    Res = SetCursorPos(X, Y)
End Sub

Res es distinto de cero si funciona correctamente y 0 en caso de error.

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