|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.07.2011, 13:33 | #1 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Работа с Label
Добрый день!
ситуация состоит в следующем: при открытии книги запускается форма, если нажать на кнопку "запустить" то выполняется макрос, но перед строчкой вызывающей макрос есть строка выводящяя сообщение "подождите" в Label Код:
этот макрос создан для примера, но есть макросы котые выполняются не секунду а больше, в них это более наглядно. Спасибо!) |
19.07.2011, 14:09 | #2 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Всё пучком! поставил задержку макроса:
Код:
|
19.07.2011, 14:25 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
а ещё можно попробовать перед вызовом макроса написать DoEvents
: Код:
|
19.07.2011, 15:53 | #4 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Работает, спасибо)) так даже лучше, время не уходит)
|
19.07.2011, 16:44 | #5 |
Форумчанин
Регистрация: 05.07.2011
Сообщений: 208
|
Решил потестить, как все это выглядит.
Для наглядности вставил в код Макроса1 цикл Код:
С чем это связано, и как с этим бороться? |
19.07.2011, 17:00 | #6 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
RAN
вызывайте обработчик сообщений DoEvents в цикле.. например, Цитата:
|
|
19.07.2011, 18:18 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
После UserForm1.Label1.Caption = "ПОДОЖДИТЕ!"
надо поставить UserForm1.Repaint для принудительной перерисовки формы |
19.07.2011, 22:22 | #8 | |
Форумчанин
Регистрация: 05.07.2011
Сообщений: 208
|
Цитата:
p.s. кстати, а почему подобный цикл - ВАРВАРСТВО!!! Последний раз редактировалось RAN.; 19.07.2011 в 22:26. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа с label.... | L.A.M.E.R. | Помощь студентам | 1 | 20.11.2010 21:01 |
Работа с Label | MAZADA | Помощь студентам | 6 | 11.11.2010 17:23 |
работа с label | miki131 | Общие вопросы Delphi | 6 | 07.07.2010 08:44 |
Работа с label | niva622 | Помощь студентам | 11 | 06.09.2007 17:49 |
Вопрос по label. Как сделать так чтобы label была прозрачной. | Lonix | Компоненты Delphi | 2 | 01.04.2007 06:23 |