Функция CopyRect

Declare Function CopyRect Lib "user32" (lpDestRect As RECT, _
    lpSourceRect As RECT) As Long

CopyRect копирует координаты одного прямоугольника в другой. Это сделано путем дублирования значений исходного прямоугольника к соответствующим значениям другого прямоугольника. Это быстрее, чем установка всех четырех значений вручную в вашем коде.

lpDestRect

Получаемый прямоугольник

lpSourceRect

Исходный прямоугольник

Пример

' Установим получаемый прямоугольник
' равным прямоугольнику окна
Dim source As RECT  ' исходный прямоугольник
Dim target As RECT  ' итоговый прямоугольник
Dim retval As Long ' возвращаемое значение
' Получаем прямоугольник окна Form1 как исходный
retval = GetWindowRect(Form1.hWnd, source)
' Копируем исходный прямоугольник в новый
retval = CopyRect(target, source)

Смотри также

EqualRect

Категория

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