TopPicLogo TopPicText

StatusBar - Отображение ProgressBar

Private Sub PGInStatusBarTest()
'Очистка
    SysCmd acSysCmdClearStatus
'Задание заголовка и масштаба (100 ед. = 100%)
    SysCmd acSysCmdInitMeter, "Фунциклирую ...", 100
'Установка "бегунка" на 20 %
    SysCmd acSysCmdUpdateMeter, 1
    '... некие действия ...
    SysCmd acSysCmdUpdateMeter, 20
    '... некие действия ...

'Установка "бегунка" на 40 % и т.д.
    SysCmd acSysCmdUpdateMeter, 40
    '... некие действия ...
    
    SysCmd acSysCmdUpdateMeter, 60
    '... некие действия ...
    
    SysCmd acSysCmdUpdateMeter, 80
    '... некие действия ...
    
    SysCmd acSysCmdUpdateMeter, 100

    MsgBox "Готово!", vbInformation, "Progress Bar in Status Bar ..."

'Очистка
    SysCmd acSysCmdClearStatus

End Sub
Назад ToTop
L.E. 19.01.2013
Рейтинг@Mail.ru