Непрерывная работа проекта

[Gfif21]

Вот есть такой проект

Private Sub T()
Label1.Caption = Time
End Sub
-----------------------------------------------------------
Private Sub Form_Load()
T
End Sub

То есть просто напросто - электронные часики.

Только после запуска отображается текущее время и все, дальше время не обновляется. То есть было однократное обращение к функции Т и проект перестал работать. А как сделать так, чтобы было непрерывное обращение и часы шли?

[alibek]

Злобно:

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

Private Sub Form_Load
While
  DoEvents
  T
WEnd
End Sub

Правильно:

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

Private Sub Form_Load
tmrClock.Interval = 1000
tmrClock.Enabled = True
tmrClock_Timer
End Sub
...
Private Sub tmrClock_Timer
T
End Sub

[Gfif21]

Пасиба

[_NeoN_]

а лучше интервал поставить 500мс, ибо глюки могу быть

[Gfif21]

Правильно:

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

Private Sub Form_Load
tmrClock.Interval = 1000
tmrClock.Enabled = True
tmrClock_Timer
End Sub
...
Private Sub tmrClock_Timer
T
End Sub

Я вот такой код написал, часы заработали, но зато кроме них теперь ничего не работает - жму CommandButton и нулевой результат. Как это поправить?

[Шурик]

Вот так все работает и нажимаеца:

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

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

Private Sub Timer1_Timer()
Label1.Caption=Time
End Sub


[Gfif21]

Ну вот, теперь работает. Пасиба