Access VBA教程:Line方法

Line方法用于当Print事件发生时,在Report对象上画线条或矩形。

expression.Line(flags, x1, y1, x2, y2, color)

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

flags  必需 Integer 型。

x1  必需Single 型。其值是线条或矩形的起点的坐标。由 object参数指定的 Report对象的“缩放”属性(ScaleMode,ScaleLeftScaleTopScaleHeightScaleWidth)确定所使用的度量单位。如果忽略该参数,线条从 CurrentX属性所指定的位置开始。

y1  必需Single 型。其值是线条或矩形的起点的坐标。由 object参数指定的 Report对象的“缩放”属性(ScaleModeScaleLeftScaleTopScaleHeightScaleWidth)确定所使用的度量单位。如果忽略该参数,线条从由 CurrentY属性所指定的位置开始。

x2  必需Single 型。其值是所画线条终点的坐标。该参数是必需的。

y2  必需Single 型。其值是所画线条终点的坐标。该参数是必需的。

color  必需Long 型。其值是用于画线的 RGB(红绿蓝)颜色。如果忽略该参数,则使用ForeColor属性的值。也可以使用 RGB函数或 QBColor函数指定颜色。

说明

只能在由报表节的 OnPrint 或 OnFormat事件属性或报表的 OnPage事件属性所指定的事件过程或宏中使用该属性。

若要连接两条正在绘制的线条,请确保后一条线以前一条线的终点作为起点。

线条的绘制宽度取决于DrawWidth属性设置。线条或矩形在背景上的作图方式取决于DrawModeDrawStyle属性的设置。

当应用 Line方法时,CurrentX 和 CurrentY属性将设置为由 x2 和 y2参数指定的终点。

VBA示例

下面的示例使用 Line方法,在名为 EmployeeReport 的报表中,距边缘五个像素处画一个红色的矩形。RGB函数用于将线条变为红色。

要在 Microsoft Access 中试用该示例,请先创建一个新的报表。将下列代码粘贴到该报表模块的声明节中,然后切换到“打印预览”。


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    ' Call the Drawline procedure
    DrawLine
End Sub
Sub DrawLine()
    Dim rpt As Report, lngColor As Long
    Dim sngTop As Single, sngLeft As Single
    Dim sngWidth As Single, sngHeight As Single
    Set rpt = Reports!EmployeeReport
    ' Set scale to pixels.
    rpt.ScaleMode = 3
    ' Top inside edge.
    sngTop = rpt.ScaleTop + 5
    ' Left inside edge.
    sngLeft = rpt.ScaleLeft + 5
    ' Width inside edge.
    sngWidth = rpt.ScaleWidth - 10
    ' Height inside edge.
    sngHeight = rpt.ScaleHeight - 10
    ' Make color red.
    lngColor = RGB(255,0,0)
    ' Draw line as a box.
    rpt.Line(sngTop, sngLeft) - (sngWidth, sngHeight), lngColor, BEnd Sub

上页:Access VBA教程:Item方法 下页:Access VBA教程:Modify方法

Access VBA教程:Line方法

Access VBA教程:Modify方法 Access VBA教程:Move方法
Access VBA教程:NewAccessProject方法 Access VBA教程:NewCurrentDatabase方法
Access VBA教程:Nz函数 Access VBA教程:OfflineConflict方法
Access VBA教程:OpenAccessProject方法 Access VBA教程:OpenConnection方法
Access VBA教程:OpenCurrentDatabase方法 Access VBA教程:OpenFunction方法
Access VBA教程:Print方法 Access VBA教程:PrintSnapshot方法 (Snapshot Viewer)
Access VBA教程:PSet方法 Access VBA教程:Quit方法
Access VBA教程:Recalc方法 Access VBA教程:Refresh方法
Access VBA教程:RefreshDatabaseWindow方法 Access VBA教程:DefaultWorkspaceClone方法
Access VBA教程:Remove方法 Access VBA教程:RemoveItem方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号