Make your own free website on Tripod.com

SetCursorPos

Declaración:
Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
Descripción:
La función SetCursorPos coloca el cursor del mouse en las coordenadas que le indiquemos.
Parámetros:
ByVal x As Long
Aquí se coloca la coordenada X (Horizontal) donde se va a mover el cursor (Estas con coordenadas de pantalla).
ByVal y As Long
Aquí se coloca la coordenada Y (Vertical) donde se va a mover el cursor (Estas con coordenadas de pantalla).
Valor de retorno:
Si  retorna 0 ocurrio un error.
Uso:
Dim ValorRetorno As Long 'Variable para el valor de retorno
'Ejemplo 1:

ValorRetorno = SetCursorPos(0,0)
'En este ejemplo se mueve el cursor a la posición 0,0 de pantalla.
'Ejemplo 2:
ValorRetorno = SetCursorPos((Screen.Width / Screen.TwipsPerPixelX / 2), (Screen.Height / Screen.TwipsPerPixelY / 2))'En este caso se mueve el cursor del mouse al centro de la pantalla.