Inicio > Visual Fox Pro, Visual Fox Pro (API de Windows) > API para mover el puntero del mouse en FoxPro SetCursorPos() y Posición del cursor GetCursorPos()

API para mover el puntero del mouse en FoxPro SetCursorPos() y Posición del cursor GetCursorPos()


 

 

SetCursorPos()

Se puede mover el puntero del mouse (cursor) mediante la función de API de Windows SetCursorPos().
La función SetCursorPos() establece la posición, en coordenadas de pantalla del puntero del mouse.

DECLARE Integer SetCursorPos in WIN32API integer, integer
=SetCursorPos(20,20)
CLEAR DLLS

Si queremos poner el puntero del mouse ensima de un objeto dentro de un formulario se podria usar el siguiente codigo:

Thisform.NombreDelObjeto.Drag()

GetCursorPos()

Mueve el cursor a las coordenadas que indica el usuario

STORE 0 TO lnX, lnY
_GetCursorPos(@lnX,@lnY)
? lnX, lnY

PROCEDURE _GetCursorPos(tnX, tnY)
DECLARE SHORT GetCursorPos IN user32 STRING @ lpPoint
LOCAL lcBuffer
lcBuffer = REPLICATE(CHR(0),8)
GetCursorPos(@lcBuffer)
tnX = buf2dword(SUBSTR(lcBuffer,1,4))
tnY = buf2dword(SUBSTR(lcBuffer,5,4))
ENDPROC

FUNCTION buf2dword(tcBuffer)
RETURN ASC(SUBSTR(tcBuffer,1,1)) + ;
BITLSHIFT(ASC(SUBSTR(tcBuffer,2,1)), 8) +;
BITLSHIFT(ASC(SUBSTR(tcBuffer,3,1)),16) +;
BITLSHIFT(ASC(SUBSTR(tcBuffer,4,1)),24)
ENDFUNC

  1. Aún no hay comentarios.
  1. No trackbacks yet.

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 )

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 )

Google+ photo

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

Conectando a %s

A %d blogueros les gusta esto: