PSet 方法

全部顯示

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

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

expression    必需。返回“應用于”列表中的一個對象的表達式。

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

X     必需 Single 型。Single 值，表示待設置點的水平坐標。

Y     必需 Single 型。Single 值，表示待設置點的垂直坐標。

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

說明

點的大小取決于 DrawWidth 屬性設置。當 DrawWidth 屬性設置為 1 時，PSet 方法將單個點設置為指定顏色。當 DrawWidth 屬性大于 1 時，所畫的點將以指定坐標為中心。

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

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

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

提示

LinePSet

示例

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

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

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