Declare Function GetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long) As Long
GetWindowRgn получает регион окна, заданный функцией SetWindowRgn
Функция возвращает одно из следующих значений, определяющих полученный тип региона:
ERROR = 0 | Ошибка при попытке работы с регионом |
NULLREGION = 1 | Регион пуст |
SIMPLEREGION = 2 | Регион в форме прямоугольника |
COMPLEXREGION = 3 | Регион не пуст, но и не прямоугольник |
Dim hRgn As Long ' дескриптор к прямоугольной области Dim retval As Long ' возвращаемое значение ' Создаем овальную область и получаем дескриптор к нему hRgn = CreateEllipticRgn(100, 150, 150, 100) retval = SetWindowRgn(Form1.hWnd, hRgn, True) retval = GetWindowRgn(Form1.hWnd, hRgn) Debug.Print retval ' Удалите область, чтобы освободить ресурсы retval = DeleteObject(hRgn)