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