ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как на время запретить обновление окна Access из кода VBA?
4 сообщений из 4, страница 1 из 1
Как на время запретить обновление окна Access из кода VBA?
    #32649969
Alex112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex112
Участник
На форме A97 есть контрол Image, куда периодически подгружаю небольшие картинки из файлов, изменяя свойство .Picture контрола.

Все ОК, только достает всплывающее окошко с прогресс баром, показывающем процесс загрузки картинки. Там еще надпись:

Импорт: <путь к файлу> и кнопка <Отмена>

Форма при этом неприятно промигивает.

Есть ли способ запретить отображение этого окошка? Или может есть API функция, которя на нужное мне время приостановит отображение обновлений окна Access?

Пробовал использовать:

Код: plaintext
Public Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long

вызывая ее перед загрузкой картинки:

Код: plaintext
LockWindowUpdate Application.hWndAccessApp

Не помогает: окошко все-равно появляется.
...
Рейтинг: 0 / 0
15.08.2004, 11:28:39
| Ответить | Цитировать | Написать  
Как на время запретить обновление окна Access из кода VBA?
    #32649984
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
попробуй docmd.echo
...
Рейтинг: 0 / 0
15.08.2004, 12:37:32
| Ответить | Цитировать | Написать  
Как на время запретить обновление окна Access из кода VBA?
    #32649986
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
попробуй
Билл
В данном примере свойство Painting используется для разрешения или запрещения обновления изображения формы, в зависимости от значения переменной SetPainting True или False. Если обновление изображения формы разрешено, на экран во время обновления формы выводится значок песочных часов.

Function EnablePaint(frmName As Form, ByVal SetPainting As Integer) As Integer
frmName.Painting = SetPainting
If SetPainting = False Then ' Если обновление запрещено,
DoCmd.Hourglass True ' выводится значок.
Else
DoCmd.Hourglass False ' Значок не выводится.
End If
End Function
...
Рейтинг: 0 / 0
15.08.2004, 13:05:46
| Ответить | Цитировать | Написать  
Как на время запретить обновление окна Access из кода VBA?
    #32650267
Alex112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex112
Участник
Спасибо всем! Сделал так:

- определяю указатель Desktop'а

Код: plaintext
Public Declare Function GetDesktopWindow Lib "user32" () As Long

- и передаю его функции перед сменой картинки:


Код: plaintext
1.
2.
LockWindowUpdate (GetDesktopWindow)
Me("ImageControl").Picture = ImgPath
LockWindowUpdate  0 & '

Работает без проблем и мельканий.

P.S. DoCmd.Echo пробовал - проблему не сняло. Вариант с установкой .Painting - аналогично.
...
Рейтинг: 0 / 0
16.08.2004, 09:20:12
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как на время запретить обновление окна Access из кода VBA?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1576&tid=1672464]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 209ms
total:  322ms
созд. / загр.: 322ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]