Visual Basic InputBox 等待时间

【问题标题】：Visual Basic InputBox Wait timeVisual Basic InputBox 等待时间
【发布时间】：2018-06-06 06:39:13
【问题描述】：

是否可以在 VB 中进行编程，让程序等待 10 秒等待用户输入？如果没有输入，则在 10 秒后使用默认值进行程序处理。如果是，那么如何编程。

【问题讨论】：

【解决方案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

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

【讨论】：