Access VBA教程:Painting属性

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

expression.Painting

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

Painting属性使用以下设置:

设置 说明
True   (默认值)重画窗体或报表。
False   不重画窗体或报表。

可以使用Visual Basic对该属性进行设置。

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

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

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

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

VBA示例

下面的示例根据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

上页:Access VBA教程:Pages属性 下页:Access VBA教程:PaintPalette属性

Access VBA教程:Painting属性

Access VBA教程:PaintPalette属性 Access VBA教程:PaletteSource属性
Access VBA教程:PaperBin属性 Access VBA教程:PaperSize属性
Access VBA教程:Parent属性 Access VBA教程:Path属性
Access VBA教程:Picture属性 Access VBA教程:PictureAlignment属性
Access VBA教程:PictureData属性 Access VBA教程:PicturePages属性
Access VBA教程:PictureSizeMode属性 Access VBA教程:PictureTiling属性
Access VBA教程:PictureType属性 Access VBA教程:PivotTable属性
Access VBA教程:PivotTableChange属性 Access VBA教程:PopUp属性
Access VBA教程:Port属性 Access VBA教程:PostalAddress属性
Access VBA教程:PreviousControl属性 Access VBA教程:PrintCount属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号