全部显示

使用 Painting 属性可以指定是否要对窗体或报表进行重画。Boolean 型，可读写。

expression.Painting

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

Painting 属性使用以下设置：

 

注释  可以使用宏或 Visual Basic 对该属性进行设置。

只有在“窗体”视图中才能设置和应用该属性，而在其他视图中该属性是不可用的。

Painting 属性类似于 Echo 操作。然而 Painting 属性可以防止重画单个的窗体或报表，而 Echo 操作则能防止重画应用程序中所有打开的窗口。

将窗体或报表的 Painting 属性设为 False 也可以防止重画窗体或报表上的所有控件（子窗体和子报表控件除外）。若要防止重画子窗体或子报表控件，必须将子窗体或子报表的 Painting 属性设置成 False。（请注意，设置的是子窗体或子报表的 Painting 属性，而不是子窗体或子报表控件的 Painting 属性。）

每当窗体或报表获得或失去焦点时，Painting 属性将自动设为 True。如果在窗体或报表上工作时不希望看到对窗体或报表或其上控件的更改，可将该属性设为 False。例如，假设某个窗体有一组控件，在调整窗体大小时这些控件也会自动调整大小，而您不希望用户看到单个控件的移动，则可以关闭 Painting，然后移动所有控件，再打开 Painting。

示例

下面的示例根据 SetPainting 变量是设为 True 还是 False，使用 Painting 属性来启用或禁用窗体重画。如果关闭了窗体重画， 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