Функция FillRect

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

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

hdc

Контекст устройства для заполнения прямоугольной области

lpRect

Координаты прямоугольной области для заполнения

hBrush

Описатель кисти для заполнения прямоугольной области

Пример

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

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

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

Смотри также

FillRgn, FrameRect

Категория

Прямоугольники