打开数据库时能否屏幕掉shift[求助]

笑立江湖

我是个初学者,,

我的QQ:62026906

先谢了

一点通

你用shift关键字在本论坛搜索,有很多这方面的例子

caisen

可以的,自己搜一下.

pgwq

用编程实现屏蔽进Access时的shift键

在任何一窗体中加入以下代码:

1. 
   Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer
   　　Dim dbs As Object, prp As Variant
   　　Const conPropNotFoundError = 3270
   
   
2. 
   　　Set dbs = CurrentDb
   　　On Error GoTo Change_Err
   　　dbs.Properties(strPropName) = varPropvalue
   　　ChangeProperty = True
   
   
3. Change_Bye:
   　　Exit Function
   
   
4. Change_Err:
   　　If Err = conPropNotFoundError Then　　' Property not found.
   　　　　Set prp = dbs.CreateProperty(strPropName, _
   　　　　　　varPropType, varPropvalue)
   　　　　dbs.Properties.Append prp
   　　　　Resume Next
   　　Else
   　　　　' Unknown error.
   　　　　ChangeProperty = False
   　　　　Resume Change_Bye
   　　End If
   End Function
   

复制代码

做个按钮cmd1

1. 
   ChangeProperty "AllowBypassKey", 1, False　'false为禁止SHIFT键，TRUE为恢复
   
   

复制代码

做个按钮cmd2

1. 
   
   
   
2. ChangeProperty "AllowBypassKey", 1, True   'TRUE为恢复shift
   
   

复制代码

[此贴子已经被作者于2005-11-26 20:53:40编辑过]