Функция CreateSolidBrush

Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

CreateSolidBrush создает объект Кисть, используемый для заливки областей фигур. После окончания использования этим объектом воспользуйтесь функцией DeleteObject для удаления кисти и освобождения ресурсов компьютера

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

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

Параметры

crColor

Значение RGB цвета для кисти

Пример

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

hbrush = CreateSolidBrush(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)  ' Уничтожаем желтую кисть

Смотри также

CreateHatchBrush

Категория

Кисти