Ребят подскажите с прогресс баром - 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

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

13   голосов , оценка 4.231 из 5
Похожие ответы