Office中国论坛/Access中国论坛

标题: 打开数据库时能否屏幕掉shift[求助] [打印本页]

---

作者: 笑立江湖    时间: 2005-11-24 17:46
标题: 打开数据库时能否屏幕掉shift[求助]
我是个初学者,,

我的QQ:62026906

先谢了

---

作者: 一点通    时间: 2005-11-24 18:09
你用shift关键字在本论坛搜索,有很多这方面的例子

---

作者: caisen    时间: 2005-11-24 20:56
可以的,自己搜一下.

---

作者: pgwq    时间: 2005-11-27 04:49
用编程实现屏蔽进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编辑过]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3