Метод Report.Line (Access)
Метод Line рисует линии и прямоугольники на объекте Report при возникновении события Print .
expression. Строка (шаг (x1, y1) — шаг (x2, y2), color, BF)
выражение (обязательно). Переменная, представляющая объект Report . Выражение, возвращающее один из объектов списка Применяется к.
Имя | Тип данных | Описание |
---|---|---|
Шаг | Ключевое слово | Указывает, что координаты начальной точки относительно текущей позиции графики, заданной текущими параметрами свойств CurrentX и CurrentY аргумента Object . |
x1, y1 | Одинарное с плавающей точкой | Указывает координаты начальной точки для линии или прямоугольника. Свойства Scale (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight и ScaleWidth) объекта Report , заданного аргументом Object, определяют используемую единицу измерения. Если этот аргумент опущен, строка начинается с позиции, указанной свойствами CurrentX и CurrentY . |
x2, y2 | Одинарное с плавающей точкой | Обязательно. Указывает координаты конечной точки для линии или прямоугольника. Убедитесь, что начальная и конечная точки разделяются дефисом ( - ). |
Color | Long | Указывает цвет RGB (красно-зеленый-синий), используемый для рисования линии. Если этот аргумент опущен, используется значение свойства ForeColor . Для указания цвета можно также использовать функцию RGB или функцию QBColor . |
B | Параметр, который создает прямоугольник, используя координаты в качестве противоположных углов прямоугольника. | |
F | F нельзя использовать без B. Если используется параметр B , параметр F указывает, что прямоугольник заполнен тем же цветом, который используется для рисования прямоугольника. Если B используется без F, прямоугольник заполняется цветом, заданным текущими параметрами свойств FillColor и BackStyle . Значение по умолчанию для свойства BackStyle — обычный для прямоугольников и линий. |
Используйте этот метод только в процедуре события или макросе, заданном свойством события 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 и обратная связь.