Закрытие формы Автоматически

[DKbelRoma]

Уважаемые программисты - помогите!
Есть форма1 и форма2 , есть кнопка command1(расположена на форме1) которая вызывает форму2
Мне нужно с помощью таймера или ещё чегото зделать так ,что-бы после открытия формы2 срабатывал как-бы таймер и (например) через 4 мин. закрывал форму2!
Может вопрос немного непонятен, но очень срочен!Помогите кто знает!
Заранее спасибо!

[Viper]

где-то в области объявлений формы:

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

Private frm2 As Form2

В обработчике Command1
Private Sub Command1_Click()

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

Set frm2 = New Form2
frm2.Show
Timer1.Enabled = True
End Sub

В обработчике таймера:

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

Private Sub Timer1_Timer()
Unload frm2
Timer1.Enabled = False
End Sub

[DKbelRoma]

Спасибо конечно ,но я здесь невижу через сколько минут или секунд форма закроется? Извени но код пока проверить немогу (возможности нет) Но всёравно спасибо!

[Viper]

Дык поставить соответствующий интервал (свойство Interval) таймера.
З.Ы. Тут есть нюанс - максимальное значение интервала 65535, а поскольку оно измеряется в миллисекундах, то максимальный интервал примерно равен одной минуте. Впрочем сие обходится элементарно.

[DKbelRoma]

Вот теперь понял! Спасибо!

[Saturn.65]

Возможно это и не совсем правильный подход, но многие процессы с N задержкой времени я пишу на прогрессбаре. Наверное это от не совершенного знания языка. Может это не так и плохо, такое не стереотипное мышление. Зато задержку можно давать совершенно любую, от секунд и кончая минутами. А если еще нагородить, то и часами. Такой принцип я применил в своей программе WinTurn.

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

Dim time1 As Integer
Private Sub Form_Load()
    Timer1.Interval = 100
    ProgressBar1.Min = 1
    ProgressBar1.Max = 100

End Sub

Private Sub Timer1_Timer()
    time1 = time1 + 1
    If time1 < 101 Then
    ProgressBar1.Value = time1
    Label1.Caption = time1 & " %"
    Else
    time1 = 0
    Label1.Caption = "0 %"
    End If
End Sub


Вот пример прогрессбара, который работает сам по себе.
Как взять от него необходимую задержку?
If Label1.Caption = "50%" Then
'Что-то происходит
End If
При необходимости скорость работы прогрессбара можно замедлить.
Прогрессбар сделать не видимым, так как он к делу не относится.
Можете улыбнуться.

[ALev]

... максимальное значение интервала 65535... Впрочем сие обходится элементарно.

Подскажите, пожалуйста, как?

[DKbelRoma]

Saturn.65 - спасибо! Твой пример мне тоже подходит!
Ты попрежнему крут!
Слушай... Есть ли у тебя какието справочники или там статьи какието о работе с прогрес баром!??
ALev - что именно тебе подсказать???

[Lumen]

ALev
Используй АПИ функции SetTimer и KillTimer

[Viper]

Все делается элементарно. Допустим необходим таймер, срабатывающий один раз в пять минут. Выставляем таймеру интервал 60000 (т.е. ровно одну минуту) и пишем в обработчике таймера следующий код:

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

Private Sub Timer1_Timer()
Static count As Integer
    count = count + 1
    If count = 5 Then
        count = 0
        Timer1.Enabled = False ' при необходимости однократного действия
        ' тут делаем то что нам нужно           
    End If
End Sub

Такой таймер, будет срабатывать один раз в минуту, но нужное действие совершит один раз в пять минут.

З.Ы. Если выйти за пределы VB, то можно задавать практически любой необходимый интервал. Но это несколько сложнее. Можно тем не менее посмотреть API-функцию SetTimer.