Функция CreateRectRgn

Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

CreateRectRgn создает область прямоугольной формы и обеспечивает описатель к нему. Прямоугольник, определяющий область, определяется через левые верхние и нижние правые углы. Обратите внимание, что основание и правые грани прямоугольника не являются частью региона

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

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

Параметры

X1

Координата x левого верхнего угла прямоугольника

Y1

Координата y левого верхнего угла прямоугольника

X2

Координата x нижнего правого угла прямоугольника

Y2

Координата y нижнего правого угла прямоугольника

Пример

' смотри также пример region.zip
' Инвертируем пикселы в пределах прямоугольной области на окне Form1. 
' Область имеет углы (20,30) - (150,110)
Dim hrgn As Long  ' дескриптор к прямоугольной области
Dim lRet As Long  ' возвращаемое значение
' Создаем прямоугольную область и получаем дескриптор к нему
hrgn = CreateRectRgn(20, 30, 150, 110)  ' Имеет углы (20,30) - (150,110)
' Инвертируем пикселы на Form1 в пределах этой области
lRet = InvertRgn(Form1.hDC, hrgn)
' Освобождаем ресурсы
lRet = DeleteObject(hrgn)

Смотри также

CreateRectRgnIndirect, CreateRoundRectRgn

Категория

Регионы