Таймер на MsgBox

[dimmon777]

rami

Согласен что в коде много лишнего, надергал половину от сюда, половину из Питоньяка. Эта часть так вообще ахинея и отсебятина

Код Выделить Развернуть

t=10000'устанавливаем счетчик
do
if MustBeClose then exit sub
t=t-220
wait (200)
if t = 0 or t < 0 then goto ii
p=t/1000
Но ведь работает, на второй шаг odlgModel.Step = 2 можно повесить и продолжение диалога, "Вы уверены, что хотите распечатать?..." с продолжением отсчета времени

[economist]

Полезный код. Модальные окна msgbox при суете пользователя (переключение приложений итп) - могут привести к "непониманию" и обратный отсчет на самонарисованных диалогах может пригодиться. 

[OOKapitan]

Огромнейшее спасибо!