Access在规定时间内禁止用户输入

在防止一些快速刷新的事件，我们都会控制输入速度的。
下面的示例，自定义了一个函数，这个函数能够控制录入速度，比如禁止5秒钟，5秒后就可以继续输入了

新建一个模块，把代码放在里面，

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub BlockUserInput(lTime As Long)

'禁止鼠标和键盘输入

BlockInput True

'等待多少秒

Sleep lTime

'允许输入

BlockInput False

End Sub

最后调用函数：然在你的窗体中调用以下 call BlockUserInput(3) '禁止3秒种

发布人:tmtony-office中国

分享到：

点击次数：更新时间：2013-09-30 16:09:13 【打印此页】【关闭】