Эмуляция нажатия CommandButton1 на UserForm1 - VB
Формулировка задачи:
Добрый день!
Помогите, пожалуйста, разобраться как работать с эмуляцией нажатия кнопки на форме.
У меня есть
UserForm1
на которой расположена кнопкаCommanbutton1
иLabel1
. ВLabel1
размещен таймер обратного отсчета. Когда таймер заканчивает свою работу появляется сообщениеMsg Box
и при нажатии наОК
мне нужно, чтобы поCommanbutton1
прошло событие, как будто ее нажали, при этом сама форма скрывается (до истечения время форма активна и кнопка выполняет другие микро программы).Решение задачи: «Эмуляция нажатия CommandButton1 на UserForm1»
textual
Листинг программы
Public iTimer As Date Sub TimerStart() '(iTimer) UserForm1.Label1.Caption = Format(iTimer, "n:ss") iTimer = iTimer - TimeValue("0:00:01") If iTimer > 0 Then Application.OnTime Now + TimeValue("00:00:01"), "TimerStart" Else UserForm1.Label1.Caption = 15 MsgBox ("Âðåìÿ âûøëî!!!") UserForm1.Commanbutton1_Click End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д