PSet 方法

全部顯示

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

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

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

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

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

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

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

說明

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

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

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

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

提示

LinePSet

示例

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

要在 Microsoft Access 中試用該示例，請先新建一個報表。將主體節(jié)的 OnPrint 屬性設(shè)置為 [事件過程]。在報表模塊中輸入下列代碼，然后切換到“打印預(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