Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Keyboard and Mouse off
Message
From
16/08/2004 13:09:57
 
 
To
16/08/2004 12:50:07
John Tomblin
Service Station Systems, Inc.
San Jose, California, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00933609
Message ID:
00933622
Views:
19
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform