Функция IsRectEmpty

Declare Function IsRectEmpty Lib "user32.dll" (lpRect As RECT) As Long

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

IsRectEmpty выясняет,пуст ли прямоугольник . Прямоугольник считается пустым, если его правый край не находится справа от его левого края, и-или его край основания не ниже его высшего края. Например, прямоугольник (50,50) - (25,100) пуст, потому что правый край - слева от левого края. Функция возвращает 1, если прямоугольник пуст и 0, если - нет.

lpRect
Прямоугольник для проверки.

Пример:

' Определим, накладываются ли окна Form1 и Form2
' Если нет,то перекрестный прямоугольник будет пуст.
Dim intrect As RECT  ' получим перекрестный прямоугольник
Dim window1 As RECT, window2 As RECT  ' получим прямоугольники Form1 и Form2
Dim isempty As Long  ' будет установлен в 0, если пересечение не пусто и 1, если нет
Dim retval As Long  ' возвращаемое значение для других функций

retval = GetWindowRect(Form1.hWnd, window1)  ' Получаем прямоугольник Form1
retval = GetWindowRect(Form2.hWnd, window2)  ' Получаем прямоугольник Form2
retval = IntersectRect(intrect, window1, window2)  ' определим перекрестный прямоугольник
isempty = IsRectEmpty(intrect)  ' определите, является ли он пустым -он будет таким, если не имеется никакого пересечения
If isempty = 0  Then 'В этом случае, перекрестный прямоугольник будет также пуст
  Debug.Print "Окна Form1 и Form2  накладываются на экране."
Else
  Debug.Print "Окна Form1 и Form2 не накладываются на экране."
End If

Схожие функции: SetRectEmpty
Категория: Прямоугольники

В начало.

toyota-kuban.ru авто Центр мерседес тойота
toyota-kuban.ru