PaletteSource 屬性

此頁(yè)沒(méi)有內(nèi)容條目
內(nèi)容

expandtri全部顯示

使用 PaletteSource 屬性可以指定窗體報(bào)表的調(diào)色板。String 型,可讀寫(xiě)。

expression.PaletteSource

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

可以選擇下列文件類型中的一種,并輸入路徑及文件名:

?.dib (與設(shè)備無(wú)關(guān)的位圖文件)

 

?.pal (Windows 調(diào)色板文件)

 

?.ico(Windows 圖標(biāo)文件)

 

?.bmp(Windows 位圖文件)

 

?.wmf 或 .emf 文件,或其他有相應(yīng)圖形篩選器的圖形文件

默認(rèn)設(shè)置是“(默認(rèn)值)”,它指定 Microsoft Access 所包含的調(diào)色板。如果通過(guò)輸入路徑及文件名改變?cè)撛O(shè)置,則屬性設(shè)置將顯示“(自定義)”。

可以使用窗體或報(bào)表的屬性表、Visual Basic 來(lái)設(shè)置該屬性。

窗體的 PaletteSource 屬性可在窗體“設(shè)計(jì)”視圖“窗體”視圖中設(shè)置。該屬性設(shè)置在其他視圖中均不可用。

報(bào)表的 PaletteSource 屬性只能在報(bào)表“設(shè)計(jì)”視圖中設(shè)置。該屬性設(shè)置在其他視圖中均不可用。

Windows 在同一時(shí)刻只允許有一個(gè)活動(dòng)的調(diào)色板。Microsoft Access 則允許在窗體上有多個(gè)圖形,每個(gè)圖形都使用不同的調(diào)色板。通過(guò) PaletteSourcePaintPalette 屬性可以指定在顯示圖形時(shí)窗體應(yīng)該使用哪個(gè)調(diào)色板。

在設(shè)置窗體或報(bào)表的 PaintPalette 屬性時(shí),Microsoft Access 將自動(dòng)更新 PaletteSource 屬性。相反,在設(shè)置窗體或報(bào)表的 PaletteSource 屬性時(shí),PaintPalette 屬性也會(huì)自動(dòng)更新。例如,假設(shè)用 PaintPalette 屬性指定了一個(gè)自定義調(diào)色板,則 PaletteSource 屬性設(shè)置將被改為“(自定義)”。PaintPalette 屬性(僅在宏或 Visual Basic 中才可用)可用于設(shè)置窗體或報(bào)表的調(diào)色板。PaletteSource 屬性則提供了一種在屬性表中設(shè)置窗體或報(bào)表的調(diào)色板的方法,該方法使用的是一個(gè)已有的圖形文件。

示例

下面的示例將 Seascape 窗體的 PaintPalette 屬性設(shè)置為 DisplayPictures 窗體中 Ocean 控件的 ObjectPalette 屬性。(Ocean 可以是綁定對(duì)象框、命令按鈕、圖表、切換按鈕或未綁定對(duì)象框。)

Forms!Seascape.PaintPalette = _

     Forms!DisplayPictures!Ocean.ObjectPalette

使用 ObjectPalettePaintPalette 屬性,可通過(guò)編程方法在運(yùn)行時(shí)改變打開(kāi)的窗體所使用的調(diào)色板。通常是將當(dāng)前窗體的 PaintPalette 屬性設(shè)為具有焦點(diǎn)的控件中顯示的圖形的調(diào)色板。

例如,可以設(shè)置窗體使其帶有一張海洋圖片,上面有許多藍(lán)色底紋,還有一張夕陽(yáng)圖片,上面有許多紅色底紋。由于 Windows 在同一時(shí)刻只允許有一個(gè)活動(dòng)的調(diào)色板,因此其中一張圖片會(huì)顯得比另一張好看。下面的示例使用控件的 Enter 事件將窗體的 PaintPalette 屬性設(shè)為該控件的 ObjectPalette 屬性,這樣焦點(diǎn)所在的那張圖就會(huì)處于最佳顯示狀態(tài)。

Sub OceanPicture_Enter()

    Me.PaintPalette = Me!OceanPicture.ObjectPalette

End Sub

Sub SunsetPicture_Enter()

    Me.PaintPalette = Me!SunsetPicture.ObjectPalette

End Sub