Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как на время запретить обновление окна Access из кода VBA? / 4 сообщений из 4, страница 1 из 1
15.08.2004, 11:28:39
    #32649969
Alex112
Alex112
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на время запретить обновление окна Access из кода VBA?
На форме 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, 12:37:32
    #32649984
Alexey Sh
Alexey Sh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на время запретить обновление окна Access из кода VBA?
попробуй docmd.echo
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2004, 13:05:46
    #32649986
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на время запретить обновление окна Access из кода VBA?
попробуй
Билл
В данном примере свойство 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
| Ответить | Цитировать | Написать  
16.08.2004, 09:20:12
    #32650267
Alex112
Alex112
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на время запретить обновление окна Access из кода VBA?
Спасибо всем! Сделал так:

- определяю указатель 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как на время запретить обновление окна Access из кода VBA? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 350ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1672464]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 211ms
total:  350ms
x
x
Закрыть


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