Access 97 - Disable and enable keyboard

AddaByte

Programmers' Script Repository
Free and low cost software.

Find out about our beautiful fractal backgrounds at abm-enterprises

Access 97

ADO.Net

ASP

ASP.Net

C

C#

CL

Crystal Reports

CSS

DB2 Procedures

DB2 SQL

DOS BATCH

HTML

JavaScript

MYSQL

Pascal

Perl

PHP

RPG IV ILE

SQL

SQL 2000

VB 6

VB.Net

VBScript

Wordpress

Access 97 - Disable and enable keyboard

Save up to 75% on software

the best name in hosting

'Vars for disable/enable keyboard
Public RetValue&
Public TrayHandle&
Public RetVal&

Function DisableKeyboard()
    RetValue& = SystemParametersInfo(97, True, CStr(1), 0)
    TrayHandle& = FindWindow("Shell_TrayWnd", "")
    RetVal& = EnableWindow(TrayHandle&, False)
    
End Function

Function EnableKeyboard()
    RetValue& = SystemParametersInfo(97, False, CStr(1), 0)
    TrayHandle& = FindWindow("Shell_TrayWnd", "")
    RetVal& = EnableWindow(TrayHandle&, True)
    
End Function

What does it do?

no description given

Features

Added by

Added

Downloads

Rating

Popularity

rpgivpgmr

11:39:45 AM Thursday, January 22nd 2009

9

not rated

About the file

Size

Download

Rate It

589 KB

Comments

Add your comment

Email
Subject
Comment
Verification code:
		All comments are screened by the admin prior to being posted

Contacts