Общие принципы работы с прогрессбаром - VB

Узнай цену своей работы

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

Ребята здравствуйте! подскожите пожалуйсто каким методом, (кроме конечно тыка) можно регулировать скорость и узнавать сколько прибавить или убавить циферку в прогрессбаре относительно длинны его, что бы не запускать десять раз программу на проверку: имеется такой код

Решение задачи: «Общие принципы работы с прогрессбаром»

textual
Листинг программы
Private Sub Command1_Click()
ProgressBar1.Visible = True
  MyValue = Int((12000 * Rnd) + 1) '
    ProgressBar1.Min = 1
                        k = 1     ' 2, 3, 4,... , 0.1, 0.2, ...
     ProgressBar1.Max = k * MyValue ' 
      For x = 1 To ProgressBar1.Max 
        ProgressBar1.Value = x 
    DoEvents
Next x
  ProgressBar1.Visible = False
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
ProgressBar1.Visible = True
  MyValue = Int((12000 * Rnd) + 1) 'çäåñü ГҐГҐ äëèГ*Г*Г*
    ProgressBar1.Min = 1
    ProgressBar1.Max = MyValue
    ProgressBar1.Value = 1
Timer1.Interval = 1 '  10,100,...
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
k = 100 '   20,300,...
If ProgressBar1.Value < ProgressBar1.Max - k Then
        ProgressBar1.Value = ProgressBar1.Value + k
Else
Timer1.Enabled = False
ProgressBar1.Visible = False
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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