Функция UnionRect
Declare Function UnionRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
UnionRect определяет наименьший возможный прямоугольник, который содержит два других прямоугольника. Координаты объединяющего прямоугольника помещены в lpDestRect
- lpDestRect
- Получаемый прямоугольник, как результат объединения двух прямоугольников
- lpSrc1Rect
- Первый из двух исходных прямоугольников
- lpSrc2Rect
- Второй из двух исходных прямоугольников
Пример
' Создадим прямоугольник, который содержит два
' прямоугольника frect и srect. Новый прямоугольник
' будет полностью содержать оба меньших прямоугольника
' frect = (20,30)-(60,80); srect = (100,110)-(200,300)
Dim frect As RECT, srect As RECT ' два прямоугольника
Dim urect As RECT ' объединяющий прямоугольник
Dim retval As Long ' возвращаемое значение
' Создаем маленькие прямоугольники
retval = SetRect(frect, 20, 30, 60, 80)
retval = SetRect(srect, 100, 110, 200, 300)
' Вычисляем объединяющий прямоугольник
retval = UnionRect(urect, frect, srect) ' теперь urect = (20,30)-(200,300)
Смотри также
IntersectRect, SubtractRect
Категория
Прямоугольники