|
|||||||
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 09 Интерфейс
Запись: xintrea/mytetra_db_adgaver_new/master/base/1532016736a2scum3mh8/text.html на raw.githubusercontent.com
|
|||||||
|
|
|||||||
StatusBar - Отображение ProgressBarPrivate 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 |
|||||||
|
Так же в этом разделе:
|
|||||||
|
|||||||
|
|||||||
|
