Aug 22
Detectar cuando se presionan los botones del Mouse
Visual Fox Pro, Funciones API Agregar ComentariosCon este ejemplo podrás determinar cuando se presionando los botones del Mouse y cual botón fue presionado.
Declare Integer GetAsyncKeyStateIn user32 Integer vKey
Declare Integer GetKeyState In user32 Integer vKey
Declare Integer SetKeyboardStateIn user32 String @lpKeyState
#Define vk_lbutton 1
#Define vk_rbutton 2
Local cbuffer, nindex, lstop
lstop = .F.
cbuffer = Replicate(Chr(0), 256)
= SetKeyboardState(@cbuffer)
DoEvents
Do While Not lstop
If GetKeyState(vk_lbutton) <> 0
? "Botón izquierda presionado"
Exit
Endif
If GetKeyState(vk_rbutton) <> 0
? "Botón derecho presionado"
Exit
Endif
Enddo
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
