Просмотр исходного текста страницы GdccGlobal.TgdccProgress

== Описание ==

<onlyinclude>Класс для организации прогресс бара (progress bar).</onlyinclude> 

Пример использования в скрипт-функиях:

<syntaxhighlight lang="vbnet">
Option Explicit
Sub ShowProgressWindow

   Dim Creator, P, I
   Set Creator = New TCreator
   Set P = Creator.GetObject(nil, "TgdccProgress", "")
   
   ' шагов может быть сколько угодно. не обязательно 100
   ' первый булевский параметр указывает надо ли принудительно 
   ' вывести окно с процентами поверх всех остальных
   ' второй булевский параметр -- можно ли прервать процесс кнопкой Прервать

   P.StartWork "Заголовок окна", "Название процесса", 100, True, True
     
   For I = 1 To 100

     ' имя шага и приращение
     ' приращение не обязательно 1, например,
     ' если на разных шагах процесса выполняется
     ' разный объем работ
     
     P.StartStep "Шаг #" & I, 1

     ' что-то делаем. для учебных целей -- просто пауза
        
     WinAPI.Sleep 200

     ' пользователь прервал наш процесс?

     If P.Canceled Then Exit For     
   Next

   ' процесс закончен. Булевский параметр показывает надо ли
   ' закрыть окно (True) или пусть повисит, пока пользователь его не закроет
      
   P.EndWork "Обработка завершена успешно", False
End Sub
</syntaxhighlight>