Propriedade Form.Painting (Access)

Use a propriedade Painting para especificar se um formulário é repintado. Boolean de leitura/gravação.

Sintaxe

expressão. Pintura

expressão Uma variável que representa um objeto Form.

Comentários

Essa propriedade só se aplica e só pode ser definida no modo de formulário e não está disponível em outros modos.

A propriedade Painting (pintando) é semelhante à ação Eco. No entanto, a propriedade Pintando impede que um formulário simples, enquanto a ação Eco impede o redesenho todas as janelas abertas em um aplicativo.

Definir a propriedade Painting (pintando) para um formulário como False também impede que todos os controles (exceto controles de subformulário) em um formulário seja redesenhado. Para impedir que um controle subformulário seja redesenhado, você deve definir a propriedade Painting (pintando) para o subformulário como False. (Observe que você defina a propriedade Painting (pintando) para o subformulário, não o controle de subformulário.)

A propriedade Painting (pintando) é automaticamente definida como True, sempre que o formulário obtém ou perde o foco. Você pode definir essa propriedade ser definida como False, enquanto você estiver trabalhando em um formulário, se você não quiser ver alterações para o formulário ou seus controles. Por exemplo, se um formulário tiver um conjunto de controles que são redimensionados automaticamente quando o formulário for redimensionado e você não quiser que o usuário veja cada movimento de controle individual, você pode desativar a Pintura , mover todos os controles e ativar a Pintura novamente.

Exemplo

O exemplo a seguir utiliza a propriedade Painting para ativar ou desativar o redesenho do formulário dependendo da variável SetPainting estar definida como True ou False. Se o redesenho de formulário estiver desativado, o Microsoft Access exibe o ícone de ampulheta enquanto Painting (pintando) está desativado.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.