Метод Report.Line (Access)

Статья
04/07/2023

Метод 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 и обратная связь.

Поделиться через