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

эта процедура должна быть размещена в отдельном модуле, а не в модуле пользовательской формы.