Необходимо сделать таймер с полосой - VB
Формулировка задачи:
Ребят помогите нужно сделать таймер и линию в которой будет видно как он идет
Решение задачи: «Необходимо сделать таймер с полосой»
textual
Листинг программы
Private Sub Form_Load() ProgressBar1.Scrolling = ccScrollingSmooth ProgressBar2.Scrolling = ccScrollingSmooth ProgressBar3.Scrolling = ccScrollingSmooth ProgressBar1.Max = 23 ProgressBar2.Max = 59 ProgressBar3.Max = 59 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() ProgressBar1.Value = Hour(Now) ProgressBar2.Value = Minute(Now) ProgressBar3.Value = Second(Now) End Sub