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

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