Как сделать чтобы ProgressBar заполнялся за некоторое время - VB

Формулировка задачи:

Подскажите пожалуйста такой момент....на форме есть прогресс бар и таймер...как сделать чтобы бар заполнялся за некоторое время???

Решение задачи: «Как сделать чтобы ProgressBar заполнялся за некоторое время»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 
 
ProgressBar1.Max = 100
ProgressBar1.Min = 0
 
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
 
 
 
Private Sub Timer1_Timer()
If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
Timer1.Enabled = False
ProgressBar1.Value = 0
End If
End Sub
                        

Оцени полезность:

6 голосов , оценка 4.167 из 5

Похожие ответы