Функция CreateRectRgn

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

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

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

X1
Координата x левого верхнего угла прямоугольника.
Y1
Координата y левого верхнего угла прямоугольника.
X2
Координата x нижнего правого угла прямоугольника.
Y2
Координата y нижнего правого угла прямоугольника.

Пример:

' Инвертируем пикселы в пределах прямоугольной области на окне Form1. 
'Область имеет углы (20,30) - (150,110).
Dim hrgn As Long  'дескриптор к прямоугольной области
Dim retval As Long  ' возвращаемое значение

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

Схожие функции: CreateRectRgnIndirect, CreateRoundRectRgn
Категория: Регионы

В начало.