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 |
|