Make your own free website on Tripod.com

GetCursorPos

Declaración:
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Descripción:
La función GetCursorPos devuelve un valor que contiene las coordenadas X e Y en ese momento del cursor del mouse.
Parámetros:
lpPoint As POINTAPI
Aquí se indica la variable de tipo POINTAPI, que contedra las coordenadas una vez llamada la función.
Valor de retorno:
Si ocurrió un error retorna 0.
Uso:
Dim Posicion As POINTAPI 'Variable que contendra las coordenadas del mouse cuando se llame a la función
Dim ValorRetorno As Long
'Variable para el valor de retorno
ValorRetorno = GetCursorPos(Posicion)
Msgbox "La posición del mouse es: X=" & Posicion.x & " Y=" & Posicion.y
'Muestra un mensaje mostrando las coordenadas X e Y actuales del mouse