Access VBA教程:PaletteSource属性

使用 PaletteSource属性可以指定窗体或报表的调色板。String 型,可读写。

expression.PaletteSource

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

说明

可以选择下列文件类型中的一种,并输入路径及文件名:

默认设置是“(默认值)”,它指定 Microsoft Access 所包含的调色板。如果通过输入路径及文件名改变该设置,则属性设置将显示“(自定义)”。

可以使用窗体或报表的属性表Visual Basic 来设置该属性。

窗体的 PaletteSource属性可在窗体“设计”视图和“窗体”视图中设置。该属性设置在其他视图中均不可用。

报表的 PaletteSource属性只能在报表“设计”视图中设置。该属性设置在其他视图中均不可用。

Windows 在同一时刻只允许有一个活动的调色板。Microsoft Access 则允许在窗体上有多个图形,每个图形都使用不同的调色板。通过 PaletteSource 和PaintPalette属性可以指定在显示图形时窗体应该使用哪个调色板。

在设置窗体或报表的 PaintPalette属性时,Microsoft Access 将自动更新 PaletteSource属性。相反,在设置窗体或报表的 PaletteSource属性时,PaintPalette属性也会自动更新。例如,假设用 PaintPalette属性指定了一个自定义调色板,则 PaletteSource属性设置将被改为“(自定义)”。PaintPalette属性(仅在宏或 Visual Basic 中才可用)可用于设置窗体或报表的调色板。PaletteSource属性则提供了一种在属性表中设置窗体或报表的调色板的方法,该方法使用的是一个已有的图形文件。

VBA示例

下面的示例将 Seascape 窗体的 PaintPalette属性设置为 DisplayPictures 窗体中 Ocean 控件的 ObjectPalette属性。(Ocean 可以是绑定对象框、命令按钮、图表、切换按钮或未绑定对象框。)


Forms!Seascape.PaintPalette = _
     Forms!DisplayPictures!Ocean.ObjectPalette

使用 ObjectPalette 和 PaintPalette属性,可通过编程方法在运行时改变打开的窗体所使用的调色板。通常是将当前窗体的 PaintPalette属性设为具有焦点的控件中显示的图形的调色板。

例如,可以设置窗体使其带有一张海洋图片,上面有许多蓝色底纹,还有一张夕阳图片,上面有许多红色底纹。由于 Windows 在同一时刻只允许有一个活动的调色板,因此其中一张图片会显得比另一张好看。下面的示例使用控件的 Enter事件将窗体的 PaintPalette属性设为该控件的 ObjectPalette属性,这样焦点所在的那张图就会处于最佳显示状态。


Sub OceanPicture_Enter()
    Me.PaintPalette = Me!OceanPicture.ObjectPalette
End Sub
Sub SunsetPicture_Enter()
    Me.PaintPalette = Me!SunsetPicture.ObjectPalette
End Sub

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

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属性
Access VBA教程:Printer属性 Access VBA教程:Printers属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号