MyTetra Share
Делитесь знаниями!
StatusBar - Отображение ProgressBar
19.07.2018
19:12
Раздел: 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
Яндекс индекс цитирования