Метод Report.PSet (Access)

Статья
04/07/2023

Метод PSet задает точку объекта Report для указанного цвета при возникновении события Print .

Синтаксис

expression. PSet (флаги, x, y, color)

Выражение Переменная, представляющая объект Report .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Flags	Обязательный	Integer	Ключевое слово, указывающий, что координаты относительно текущей позиции графики, заданной параметрами свойств CurrentX и CurrentY аргумента Object.
x	Обязательный	Single	Горизонтальная координата устанавливаемой точки.
y	Обязательный	Single	Вертикальная координата устанавливаемой точки.
Color	Обязательный	Long	Цвет RGB (красный-зеленый-синий), на который нужно задать точку. Если этот аргумент опущен, используется значение свойства ForeColor . Для указания цвета можно также использовать функцию RGB или функцию QBColor .

Возвращаемое значение

Отсутствует

Примечания

Размер точки зависит от параметра свойства DrawWidth . Если для свойства DrawWidth задано значение 1, метод PSet задает для одного пикселя указанный цвет. Если свойство DrawWidth больше 1, точка сосредоточена по указанным координатам.

Способ рисования точки зависит от параметров свойств DrawMode и DrawStyle .

При применении метода PSet свойства CurrentX и CurrentY задаются в точку, указанную аргументами x и y .

Чтобы очистить один пиксель с помощью метода PSet , укажите координаты пикселя и используйте &HFFFFFFFF (белый) в качестве аргумента Color .

Пример

В следующем примере метод PSet используется для рисования линии через горизонтальную ось отчета.

Чтобы попробовать этот пример в Microsoft Access, создайте новый отчет. Задайте для свойства OnPrint раздела Подробности значение [Процедура события]. Введите следующий код в модуль отчета, а затем переключитесь на предварительный просмотр.

Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 Dim sngMidPt As Single, intI As Integer 
 ' Set scale to pixels. 
 Me.ScaleMode = 3 
 ' Calculate midpoint. 
 sngMidPt = Me.ScaleHeight / 2 
 ' Loop to draw line down horizontal axis pixel by pixel. 
 For intI = 1 To Me.ScaleWidth 
 Me.PSet(intI, sngMidPt) 
 Next intI 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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