PSet 方法

全部顯示

當(dāng) Print 事件發(fā)生時(shí)，PSet 方法將 Report 對(duì)象上的某一點(diǎn)設(shè)置為指定的顏色。

expression.PSet(flags, X, Y, color)

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

flags     必需 Integer 型。 表示坐標(biāo)是相對(duì)于當(dāng)前圖形位置的一個(gè)關(guān)鍵字，當(dāng)前圖形位置由 object   參數(shù)的 CurrentX 和 CurrentY 屬性給出。

X     必需 Single 型。Single 值，表示待設(shè)置點(diǎn)的水平坐標(biāo)。

Y     必需 Single 型。Single 值，表示待設(shè)置點(diǎn)的垂直坐標(biāo)。

color     必需 Long 型。Long 值，表示要將點(diǎn)設(shè)置成的 RGB （紅綠藍(lán)）顏色。如果省略該參數(shù)，則將使用 ForeColor 屬性的值。也可以使用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色。

說明

點(diǎn)的大小取決于 DrawWidth 屬性設(shè)置。當(dāng) DrawWidth 屬性設(shè)置為 1 時(shí)，PSet 方法將單個(gè)點(diǎn)設(shè)置為指定顏色。當(dāng) DrawWidth 屬性大于 1 時(shí)，所畫的點(diǎn)將以指定坐標(biāo)為中心。

畫點(diǎn)的方式取決于 DrawMode 和 DrawStyle 屬性的設(shè)置。

當(dāng)應(yīng)用 PSet 方法時(shí)，CurrentX 和 CurrentY 屬性將設(shè)置為由 x 和 y 參數(shù)所指定的點(diǎn)。

要用 PSet 方法清除單個(gè)像素，請(qǐng)指定像素的坐標(biāo)，并使用 &HFFFFFF（白色）作為 color 參數(shù)。

提示

LinePSet

示例

下面的示例使用 PSet 方法來畫一條通過報(bào)表水平軸的線。

要在 Microsoft Access 中試用該示例，請(qǐng)先新建一個(gè)報(bào)表。將主體節(jié)的 OnPrint 屬性設(shè)置為 [事件過程]。在報(bào)表模塊中輸入下列代碼，然后切換到“打印預(yù)覽”。

Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    Dim sngMidPt As Single, intI As Integer

    ' Set scale to pixels.

    Me.ScaleMode = 3

    ' Calculate midpoint.

    sngMidPt = Me.ScaleHeight / 2

    ' Loop to draw line down horizontal axis pixel by pixel.

    For intI = 1 To Me.ScaleWidth

        Me.PSet(intI, sngMidPt)

    Next intI

End Sub