Office中国论坛/Access中国论坛

标题: 禁止用户输入 [打印本页]

作者: tmtony 时间: 2011-8-26 10:13
标题: 禁止用户输入
新建一个模块，把代码放在里面，然后在你的窗体中调用以下 call BlockUserInput(3) '禁止3秒种

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

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