Поделиться через

Свойство Form.Painting (Access)

  • Статья

Используйте свойство Painting , чтобы указать, будет ли перекрашена форма. Для чтения и записи, Boolean.

Синтаксис

expression. Живописи

выражение: переменная, представляющая объект Form.

Замечания

Это свойство можно задать и применить только в представлении формы и недоступно в других представлениях.

Свойство Рисование похоже на действие Echo. Однако свойство Painting предотвращает перерисовку одной формы, тогда как действие Echo предотвращает перерисовку всех открытых окон в приложении.

Установка для свойства Painting для формы значения False также предотвращает перекрашивание всех элементов управления (кроме элементов управления подформы) в форме. Чтобы предотвратить перерисовку элемента управления подчиненной формы, необходимо задать для свойства Painting для подчиненной формы значение False. (Обратите внимание, что вы задаете свойство Painting для подчиненной формы, а не для элемента управления подчиненной формы.)

Свойству Painting автоматически присваивается значение True всякий раз, когда форма получает или теряет фокус. Для этого свойства можно задать значение False во время работы с формой, если вы не хотите видеть изменения в форме или ее элементах управления. Например, если форма содержит набор элементов управления, которые автоматически изменяются при изменении размера формы, и пользователь не должен видеть каждое перемещение отдельных элементов управления, можно отключить рисование , переместить все элементы управления, а затем снова включить рисование .

Пример

В следующем примере свойство Painting используется для включения или отключения рисования форм в зависимости от того, задано ли для переменной SetPainting значение True или False. Если рисование формы отключено, Microsoft Access отображает значок песочных часов, когда рисование отключено.

Public Sub EnablePaint(ByRef frmName As Form, _ 
 ByVal SetPainting As Integer) 
 
 frmName.Painting = SetPainting 
 
 ' Form painting is turned off. 
 If SetPainting = False Then 
 DoCmd.Hourglass True 
 Else 
 DoCmd.Hourglass False 
 End If 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.