Функция CreateSolidBrush

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

Платформа: Win 95/98, Win NT

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

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
Категория: Кисти
В начало.