Access VBA教程:PSet方法

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

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

expression  必需。返回“Applies To”列表中的一个对象的表达式。

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

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

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

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

说明

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

画点的方式取决于DrawModeDrawStyle属性的设置。

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

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

提示  用 Line方法画线比用 PSet方法画线快。

VBA示例

下面的示例使用 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

上页:Access VBA教程:PrintSnapshot方法 (Snapshot Viewer) 下页:Access VBA教程:Quit方法

Access VBA教程:PSet方法

Access VBA教程:Quit方法 Access VBA教程:Recalc方法
Access VBA教程:Refresh方法 Access VBA教程:RefreshDatabaseWindow方法
Access VBA教程:DefaultWorkspaceClone方法 Access VBA教程:Remove方法
Access VBA教程:RemoveItem方法 Access VBA教程:Repaint方法
Access VBA教程:ReplaceLine方法 Access VBA教程:Requery方法
Access VBA教程:Run方法 Access VBA教程:RunCommand方法
Access VBA教程:Scale方法 Access VBA教程:导出报表快照 (Snapshot Viewer)
Access VBA教程:SetDefaultWorkgroupFile方法 Access VBA教程:SetFocus方法
Access VBA教程:SetHiddenAttribute方法 Access VBA教程:SetOption方法
Access VBA教程:SizeToFit方法 Access VBA教程:StringFromGUID方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号