Объект PBar
1. Призначення
Призначений для візуалізації процесу виконання тривалої дії.
Візуально являє собою екран з "повзуном", відсотковим співвідношенням виконаної та
роботи, що залишилася, часом виконання та прогнозованим часом до кінця виконання
процесу. Може містити кнопку "Перервати виконання", в цьому випадку керуючий процес
повинен обробляти атрибут NeedBreak.
Створюється за допомогою виклика глобальної функції ProgressBar.
2. Методи та атрибути класу
| Тип |
Ім'я |
Опис |
| Str |
Caption |
RW: Заголовок |
| Int |
Min |
RW: Мінімальна позиція "повзуна" |
| Int |
Max |
RW: Максимальна позиция "ползуна" |
| Int |
Position |
RW: Поточна позиція "повзуна |
| - |
Inc |
Збільшити значення поточної позиції "повзуна" |
| - |
Show |
Відобразити вікно на екрані |
| - |
Hide |
Сховати вікно (прибрати з екрану) |
| Bool |
NeedBreak |
RO: Ознака того, що користувач натиснув кнопку "Перервати виконання" |
3. Приклад використання
Приклад використання даного класу мовою VBScript
Set PB = ProgressBar( TRUE )
Set Gr = Grid(100200, 0, 0)
PB.Max = Gr.RecordCount
PB.Caption = "Перебираємо значення"
f = Gr.First
Do While f
<- - ->
If PB.NeedBreak Then
Exit Do
End If
f = Gr.Next
PB.Inc()
Loop
|
|