Эмуляция нажатия 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы