Функция EqualRect

Declare Function EqualRect Lib "user32" (lpRect1 As RECT, _
    lpRect2 As RECT) As Long

EqualRect определяет, являются ли два прямоугольника равными. Прямоугольники считаются равными, если лево-верхние и нижне-правые углы (точки, определяющие прямоугольники) одного прямоугольника, равны аналогичным углам другого.

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

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

Параметры

lpRect1

Первый из двух прямоугольников для сравнения

lpRect2

Второй из двух прямоугольников для сравнения

Пример

' Демонстрация проверки двух прямоугольников
Dim r As RECT, s As RECT  
Dim areequal As Long  ' равны или нет два прямоугольника
Dim retval As Long  ' возвращаемое значение

retval = SetRect(r, 15, 20, 100, 110)
retval = SetRect(s, 15, 20, 100, 110)
areequal = EqualRect(r, s)  ' сравниваем прямоугольники
 If areequal = 1 Then
   Debug.Print "Одинаковы"
  Else Debug.Print "Не одинаковы"
 End If

Смотри также

CopyRect

Категория

Прямоугольники