Aug 22
Determinar si la tecla SHIFT, CONTROL o ALT están presionadas
Visual Fox Pro, Trucos Agregar ComentariosEn este ejemplo utilizaremos el API de Windows para determinar si las teclas SHIFT - CONTROL - ALT están presionadas, ya sea de forma independiente o al mismo tiempo. Clear
#Define
VK_SHIFT 0x10
#Define
VK_CONTROL 0x11
#Define
VK_MENU 0x12
#Define
PRESSED 0x07
Declare Integer GetKeyboardState In WIN32API String @
Do While .T.
m1 = Replicate(Chr(0),255)
Wait Window
""
Timeout
0.5
GetKeyboardState(@m1)
? "Shift",
Bittest(Asc(Substr(m1,VK_SHIFT+1,1)),PRESSED)
? "Control",
Bittest(Asc(Substr(m1,VK_CONTROL+1,1)),PRESSED)
? "Alt",
Bittest(Asc(Substr(m1,VK_MENU+1,1)),PRESSED)
If Lastkey()
== 27
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
