禁止用户输入

tmtony

新建一个模块，把代码放在里面，然后在你的窗体中调用以下 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