Ребят подскажите с прогресс баром - VB
Формулировка задачи:
Мне нужно чтобы при полном запонении прогресс бара вылетало сообщение и прогресс бар обнулялся.
И с каждым новым заполнением вылазило новое сообщение. Подскажите как сделать пожалуйста
Решение задачи: «Ребят подскажите с прогресс баром»
textual
Листинг программы
- Private Sub Command3_Click()
- ' для примера зададим интервалы ProgressBar1
- ProgressBar1.Min = 0
- ProgressBar1.Max = 10000
- For i = ProgressBar1.Min To ProgressBar1.Max
- ProgressBar1.Value = i
- If i = ProgressBar1.Max Then 'Если ProgressBar1 ПОЛНОСТЬЮ заполнен:
- MsgBox "новое сообщение"
- ProgressBar1.Value = 0 ' обнулим ProgressBar1
- End If
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
