Line 方法
內(nèi)容
Line 方法用于當(dāng) Print 事件發(fā)生時(shí)，在 Report 對(duì)象上畫線條或矩形。
expression.Line(flags, x1, y1, x2, y2, color)
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。
flags 必需 Integer 型。
x1 必需 Single 型。該值是線條或矩形起點(diǎn)的坐標(biāo)。所用的度量由 object 參數(shù)指定的 Report 對(duì)象的 Scale 屬性（ScaleMode, ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth）來確定。。如果忽略該參數(shù)，線條從 CurrentX 屬性指定的位置開始。
y1 必需 Single 型。該值是線條或矩形起點(diǎn)的坐標(biāo)。所用的度量由 object 參數(shù)指定的 Report 對(duì)象的 Scale 屬性（ScaleMode、ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth）來確定。如果忽略該參數(shù)，線條從 CurrentY 屬性指定的位置開始。
x2 必需 Single 型。其值是所畫線條終點(diǎn)的坐標(biāo)。該參數(shù)是必需的。
y2 必需 Single 型。其值是所畫線條終點(diǎn)的坐標(biāo)。該參數(shù)是必需的。
color 必需 Long 型。其值是用于畫線的 RGB（紅綠藍(lán)）顏色。如果忽略該參數(shù)，則使用 ForeColor 屬性的值。也可以使用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色。
說明
只能在由報(bào)表節(jié)的 OnPrint 或 OnFormat 事件屬性或報(bào)表的 OnPage 事件屬性所指定的事件過程或宏中使用該屬性。
若要連接兩條正在繪制的線條，請(qǐng)確保后一條線以前一條線的終點(diǎn)作為起點(diǎn)。
線條的繪制寬度取決于 DrawWidth 屬性設(shè)置。線條或矩形在背景上的作圖方式取決于 DrawMode 和 DrawStyle 屬性的設(shè)置。
應(yīng)用 Line 方法時(shí)，CurrentX 和 CurrentY 屬性設(shè)為 x2 和 y2 參數(shù)指定的終點(diǎn)。
示例
下面的示例使用 Line 方法，在名為 EmployeeReport 的報(bào)表中，距邊緣五個(gè)像素處畫一個(gè)紅色的矩形。RGB 函數(shù)用于將線條變?yōu)榧t色。
要在 Microsoft Access 中試用該示例，請(qǐng)先創(chuàng)建一個(gè)名為 EmployeeReport 新報(bào)表。將下列代碼粘貼到該報(bào)表模塊的聲明節(jié)中，然后切換到“打印預(yù)覽”。
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