Visual Basic+Timer - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Visual Basic+Timer (http://forum.oszone.net/showthread.php?t=29525)

Помогите ! Есть следующий код:

Код:

Dim n As Integer



Private Sub Form_load()

n = 0

End Sub



Private Sub Timer1_Timer()

n = n + 1

ProgressBar1.Value = n

Label1.Caption = ProgressBar1.Value

If n = 5 Then

Form1.Show

Form2.Hide

n = 0

ProgressBar1.Value = 0

End If

End Sub

Но при каждой последующей загрузке Form2 ProgressBar1.Value
иногда равна "2", иногда "3" , но очень редко *желаемому "0".

Где ошибка? Помогите!

[s]Исправлено: Prisoner, 0:22 29-05-2004[/s]

Leonidas
первое:
меня очень смущает то что у тебя вункции не принимают никаких параметров, но это мелочь.

а ты таймер останавливаешь?
если нет то он продолжает дальше менять n что ты и наблюдаешь!

Я и сам понимаю, что надо остановить таймер.Но как и где??

Leonidas
скорее всего так:

Код:

Timer1.Enabled = false;

Пишешь строку 'Timer1.Enabled = false' после строки 'ProgressBar1.Value = 0'