Report.Line 方法 (Access)
发生 Print 事件时,Line 方法在 Report 对象上绘制线条和矩形。
语法
表达式。行 (步骤 (x1、y1) - 步骤 (x2、y2) 、 Color、 BF)
expression 是必需的。 一个代表 Report 对象的变量。 返回“应用于”列表中的一个对象的表达式。
参数
名称 | 数据类型 | 说明 |
---|---|---|
步骤 | 关键字 | 指示起点坐标相对于 Object 参数的 CurrentX 和 CurrentY 属性的当前设置给出的当前图形位置。 |
x1、y1 | 单精度 | 指示直线或矩形的起点的坐标。 由 Object 参数指定的 Report 对象的 Scale (Mode、ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth) Scale 属性确定使用的度量单位。 如果省略此参数,则行从 CurrentX 和 CurrentY 属性指示的位置开始。 |
x2、y2 | 单精度 | 必填。 指示线条或矩形的终点的坐标。 确保起点和终点用连字符 ( - ) 分隔。 |
Color | Long | 指示用于绘制线条的 RGB (红-绿-蓝) 颜色。 如果省略此参数,则使用 前景色 属性的值。 此外可以使用 QBColor 函数的 RGB 函数来指定颜色。 |
B | 一个选项,该选项使用坐标作为矩形的相反角来创建矩形。 | |
F | 在没有 B 的情况下,不能使用 F。如果使用 B 选项,则 F 选项指定使用用于绘制矩形的相同颜色填充矩形。 如果使用了 B 选项而未使用 F,则使用 FillColor 和 BackStyle 属性的当前设置指定的颜色来填充矩形。 对于矩形和线条,BackStyle 属性的默认值为 Normal。 |
备注
仅在事件过程或由报表节的 OnPrint 或 OnFormat 事件属性或报表的 OnPage 事件属性指定的宏中使用此方法。
若要连接两条正在绘制的线条,请确保后一条线用前一条线的终点作为起点。
绘制线条的宽度取决于 DrawWidth 属性设置。 在背景上绘制线条或矩形的方式取决于 DrawMode 和 DrawStyle 属性的设置。
应用 Line 方法时,CurrentX 和 CurrentY 属性将重新设置为 x2 和 y2 参数指定的终点。
示例
以下示例使用 Line 方法在名为 EmployeeReport 的报表边缘内绘制一个五个像素的红色矩形。 RGB 函数用于将线条变为红色。
若要在 Microsoft Access 中试用此示例,请创建名为 EmployeeReport 的新报表。 将以下代码粘贴到报表模块的“声明”部分中,然后切换到“打印预览”。
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, B
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈