Непонятный глюк с отображением прогресбара

[Oooleg]

Здравствуйте Господа програмеры!

Может кто-нибудь подскажет почему происходит нижеописанный глюк.

При открывании книги, запускается цепочка макросов выполняющих обновление данных из внешних источников. После чего еще выполняется обработка данных внутри книги. Ввесь процесс занимает 10-20 сек. Чтобы во время обновления пользователь не нервничал, я вывожу форму с прогресбаром который отображает состояние процесса обновления. ScreenUpdating отключен.
Так вот, периодически по непонятным для меня причинам прогресбар перестает обновляться, гдето в первой половине процесса обновления. Возникает впечатление что Excel завис, хотя на самом деле выполнение макросов не прекращается, но это становится понятно только после окончания их работы когда прячется форма с прогресбаром и включается ScreenUpdating. Выглядит некрасиво...
Но такое происходит не всегда. В большей части случаев запуска все происходит так как и задумано: прогресбар обновляется вплоть до 100% при отключеном ScreenUpdating, после чего пользователь может лицезреть результаты обновлений.

... я так понимаю что при определенном стечении обстоятельств Excel сам отключает все обновления, т.к. подобное наблюдается например если выполнять какой-нибудь длительный макрос без отключения ScreenUpdating, на какойто стадии выполнения обновление отключается само. Если это так то как и где с этим бороться?

Сейчас пользую Excel 2010(Demo), но подобные глюки наблюдал и в других проектах когда пользовал Excel 2007 (на счет 2003 незнаю...)



Может кто-нибудь сталкивался с подобной некрасивостью и знает как ее победить... Подскажите пожалуйста.

[doober]

я думаю такая пилюля вылечит глюк

ProgressBar1.Value = ProgressBar1.Value + 1
DoEvents

[Oooleg]

Спасибо, попробую...

[The_Prist]

Еще можно попробовать

UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1
UserForm1.Repaint

UserForm1 - форма с ПрогрессБаром.

[Oooleg]

Сообщение от The_Prist

Еще можно попробовать

UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1
UserForm1.Repaint

UserForm1 - форма с ПрогрессБаром.

Пробовал.
Проблема не исчезает. Вдобавок, при перерисовывании формы возникает неэстетичное мерцание формы, что выглядит еще хуже...

[novak_26]

подскажите, плз, где можно взять процедуру с кодом прогресс-бара (или скиньте сюда). Можно любую работающую, хотя мне хочется свои gif-картинки куда линками вставлять и чтобы рядом показывался процент выполнения задачи.

[doober]

Создайте свой на базе контрола Image
Что хотите,то и будет показывать и проценты так же

[novak_26]

кажется, нашел )
http://www.programmersforum.ru/showt...631#post148631