Функция CreateHatchBrush

Declare Function CreateHatchBrush Lib "gdi32" (ByVal nIndex As Long, ByVal crColor As Long) As Long

CreateHatchBrush создает объект - заштрихованную кисть. Для заполнения области или формы кисть производит закраску определенныя образом в единственном (отдельном) цвете, используя 8x8 ячейку. После того, как программа заканчивает использование заштрихованной кисти, следует использовать DeleteObject, чтобы удалить кисть.

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

Функция возвращает описатель созданной заштрихованной кисти в успешном случае или 0 в случае ошибки (используйте GetLastError для получения кода ошибки).

Параметры

nIndex

Один из следующих флажков, определяющих образец штриховки для создания кисти

HS_BDIAGONAL = 3

Диагональные линии от левой нижней части до правой верхней

HS_CROSS = 4

Перекрестный образец горизонтальных и вертикальных линий

HS_DIAGCROSS = 5

Перекрестный образец перпендикулярных диагональных линий

HS_FDIAGONAL = 2

Диагональные линии от левой верхней к правой нижней части

HS_HORIZONTAL = 0

Горизонтальные линии

HS_VERTICAL = 1

Вертикальные линии

crColor

Значение цвета RGB, передаваемой кисти

Пример

' Рисуем прямоугольник с углами (10,20) и (175,100)
' на окне Form1. Используем желтую кисть
' с диагональным перекрестным образцом, чтобы заполнить прямоугольник
Dim hbrush As Long  ' дескриптор заштрихованной желтой кисти
Dim holdbrush As Long  ' дескриптор заданной по умолчанию кисти на Form1
Dim retval As Long ' возвращаемое значение

'создадим заштрихованную желтую кисть
hbrush = CreateHatchBrush(HS_DIAGCROSS, RGB(255, 255, 0))
' сохраним заданную по умолчанию кисть на Form1,
' чтобы могли восстановить ее после завершении программы
holdbrush = SelectObject(Form1.hDC, hbrush) ' выбираем кисть
' Рисуем прямоугольник, заполняя его заштрихованной желтой кистью
retval = Rectangle(Form1.hDC, 10, 20, 175, 100)
' восстанавливаем кисть по умолчанию и удаляем созданную нами кисть
retval = SelectObject(Form1.hDC, holdbrush)  ' старая кисть
retval = DeleteObject(hbrush) ' удаляем желтую кисть

Смотри также

CreateSolidBrush

Категория

Кисти

Реклама

Контейнерные перевозки грузов читайте здесь .