Visual Basic InputBox等待时间

Question

是否可以在VB中编程，以便程序等待10秒钟进行用户输入？如果未输入任何输入，则程序将在10秒后处理默认值。如果是，那么如何编程。

Answer 1

在您的表单代码中：

Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:10"), "closeIfNoValueEntered"
End Sub

结束程序：

Sub closeIfNoValueEntered()
    If UserForm1.TextBox1.Text = "" Then Unload UserForm1
End Sub

此过程必须放在单独的模块中，而不是放在用户表单模块中。