Не работает Timer

[abs]

Я хочу проверить время работы цикла, включаю таймер в начале, и выключаю в конце, но результата не видно. Почему?

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

Dim t%
Private Sub Command1_Click()
Timer1.Enabled = True
.
.
.
.
.
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
  Label1.Caption =  t
  t = t + 1
End Sub

[Aleksej]

Timer1.Interval - установлен

[abs]

Конечно установлен... Более того, если таймер сразу установить в Enabled = True, то он прекрасно работает, а в цикле не хочет включаться

[Aleksej]

Я попробывал так, всё работает:

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

Option Explicit
Dim t%
Private Sub Command1_Click()
Dim i As Long
Timer1.Enabled = True
For i = 0 To 1000000
    DoEvents
Next i
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
  Label1.Caption = t
  t = t + 1
End Sub


Может дело в DoEvents

[abs]

Что-то странно....

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

Private Sub Command1_Click()
Label1.Caption ="Start"
.
.
.
.
.
Label1.Caption ="Finish"
End Sub


тоже не работает...

[abs]

Спасибо!

[Aleksej]

Попробуй установить свойство Enable=False, а при запуске процедуры устанавливай True

[Шурик]

Я точно не знаю но помойму это глюк!!
У меня такая же байда была!!!
Попробуй вместо:
Timer1.Enabled = True
вот это:
Timer1.Enabled = 1

Должно вроде заработать!!
У меня по крайне мере заработало!!!

[boevik]

Это не глюк.
Во время цикла не происходит обработка сообщений программы.
А таймер это именно сообщение для программы сделать то, что записано в Timer1_Timer.

Поэтому когда цикл запускается с командой DoEvents внутри цикла, происходит обработка кода в Timer1_Timer.