Необходимо сделать таймер с полосой - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
