Переход по истечению времени

[Danjys]

Подскажите как сделать так, чтобы например находясь в UserForm1 ты нажимаешь на CommandButton и попадаешь на UserForm2, которая по истечению некоторого времени(5 сек.) автоматически пересылает тебя на UserForm3.
Подскажите как реализовать эту связку, а то уже столько времени капаюсь и никак.

[Twister]

Во-первых. Что значит "попадаешь на UserForm2"? Имеется ввиду, что нужно активировать UserForm2? Если да, то можно

Код: Выделить всё

frm2.Visible=true
frm2.SetFocus

Ну а потом запускаешь таймер на 5 сек и выполняешь тот же код, только касаемо другой формы...

[Danjys]

Да, вы правильно поняли.
В Visual Basic я совсем чайник, не могли бы вы поподробней рассказать как делается этот таймер и как его связать.

[FAER]

В форму UserForm2 помщаешь код:

Код: Выделить всё

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub


На форму помещаешь таймер. В таймер добавляешь код:

Код: Выделить всё

Private Sub Timer1_Timer()
If Now >= dtnexttime Then _
    UserForm3.Show
    Unload Me
End Sub

Unload Me нужен для того, чтобы твоя форма UserForm2 выгрузилась из памяти и исчезла с экрана. Если всёже её присутствие тебе необходимо, Unload Me не прописывай.

[Danjys]

Странно все сделал как написано. Форма появляется но ничего не происходит.

[FAER]

Уффф.. Переход с первой формы на вторую (этот код помещай в кнопку, которая находится у тебя на первой форме) :

Код: Выделить всё

Private Sub Command1_Click()
UserForm2.Show
     Unload Me
End Sub


А затем смотри мой первый пост.

[Danjys]

Спасибо, работает , я посто ступил сначала.

[FAER]

Всегда пожалуйста.