Функция FrameRect

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

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

FrameRect рисует рамку с шириной один пиксел вокруг прямоугольника на устройстве, используя данную кисть.рисует рамку с шириной один пиксел вокруг прямоугольника на устройстве, используя данную кисть. Эта рамка может быть эквивалентна краю заполненного прямоугольника (пользуйтесь 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 = FrameRect(Form1.hDC, r, hbrush)  ' Создаем прямоугольник, используя кисть
' Удалим кисть, которую мы создавали, чтобы освободить ресурсы
retval = DeleteObject(hbrush)

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

В начало.