全部显示

当 Print 事件发生时，PSet 方法将 Report 对象上的某一点设置为指定的颜色。

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

expression    必需。返回“应用于”列表中的一个对象的表达式。

flags     必需 Integer 型。 表示坐标是相对于当前图形位置的一个关键字，当前图形位置由 object   参数的 CurrentX 和 CurrentY 属性给出。

X     必需 Single 型。Single 值，表示待设置点的水平坐标。

Y     必需 Single 型。Single 值，表示待设置点的垂直坐标。

color     必需 Long 型。Long 值，表示要将点设置成的 RGB （红绿蓝）颜色。如果省略该参数，则将使用 ForeColor 属性的值。也可以使用 RGB 函数或 QBColor 函数指定颜色。

说明

点的大小取决于 DrawWidth 属性设置。当 DrawWidth 属性设置为 1 时，PSet 方法将单个点设置为指定颜色。当 DrawWidth 属性大于 1 时，所画的点将以指定坐标为中心。

画点的方式取决于 DrawMode 和 DrawStyle 属性的设置。

当应用 PSet 方法时，CurrentX 和 CurrentY 属性将设置为由 x 和 y 参数所指定的点。

要用 PSet 方法清除单个像素，请指定像素的坐标，并使用 &HFFFFFF（白色）作为 color 参数。

提示

LinePSet

示例

下面的示例使用 PSet 方法来画一条通过报表水平轴的线。

要在 Microsoft Access 中试用该示例，请先新建一个报表。将主体节的 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