Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Keyboard and Mouse off
Message
De
16/08/2004 13:09:57
 
 
À
16/08/2004 12:50:07
John Tomblin
Service Station Systems, Inc.
San Jose, Californie, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00933609
Message ID:
00933622
Vues:
18
>Is there a way to turn off input (keyboard and mouse) briefly while a process completes, then, turn them back on?


hi John,

I briefly tested this. This is for the screen

Any window you get the hwnd of, you can disable/enable keyboard and mouse
*---------------------------------------------------------------------------
function do_it()

	declare integer EnableWindow in win32api integer, integer
        declare Sleep in Win32api integer

	** disable keyboard
	=EnableWindow(_screen.hwnd, 0)
	?? 'keyboard disabled'

	=sleep(5000)
	
	=EnableWindow(_screen.hwnd, 1)
	?? 'keyboard enabled'

endfunc
*---------------------------------------------------------------------------
see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/keyboardinputreference/keyboardinputfunctions/enablewindow.asp
Gregory
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform