MyTetra Share
Делитесь знаниями!
StatusBar - Отображение ProgressBar
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 09 Интерфейс

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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования