Функция FillRect

Declare Function FillRect Lib "user32.dll" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long

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

FillRect заполняет прямоугольную область на устройстве, используя указанную кисть. Граница прямоугольной области не рисуется, и основание и правые грани данного прямоугольника не заполняются (они не являются частью внутренней области прямоугольника). Обратите внимание, что эта функция использует кисть, передаваемой функции, так что нет необходимости использовать SelectObject для выбора устройством кисти. В случае успеха функция возвращает 1,в случае ошибки функция возвращает 0.

hdc
Контекст устройства для заполнения прямоугольной области.
lpRect
Координаты прямоугольной области для заполнения.
hBrush
Дескриптор кисти, чтобы использовать для заполнения прямоугольной области.

Пример:

' Используем синюю диагонально - перекрестную 
'заштрихованную кисть, чтобы заполнить прямоугольную
' область на окне Form1. Прямоугольная область имеет 
'координаты (20,25) - (200,175).

Dim hbrush As Long  ' Получаем дескриптор синей заштрихованной кисти
Dim r As RECT  ' Прямоугольная область для заполнения
Dim retval As Long  ' возвращаемое значение

' устанавливаем координаты прямоугольника r
retval = SetRect(r, 20, 25, 200, 175)  ' теперь r = (20,25)-(200,175)
' создаем синюю диагонально - перекрестную заштрихованную кисть
hbrush = CreateHatchBrush(HS_DIAGCROSS, RGB(0, 0, 255))
' Заполним желаемую прямоугольную область
retval = FillRect(Form1.hDC, r, hbrush) 
' Удалим кисть, которую мы создавали, чтобы освободить ресурсы
retval = DeleteObject(hbrush)

Схожие функции: FillRgn, FrameRect
Категория: Фигуры

В начало.