Функция CopyRect

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

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

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

lpDestRect
Прямоугольник-цель.
lpSourceRect
Прямоугольник-источник.

Пример:

' Установим прямоугольники источника и цели
' равными прямоугольнику окна,  копируя источник к цели
Dim source As RECT, target As RECT  ' прямоугольники источника и цели
Dim retval As Long  ' возвращаемое значение

' Получаем прямоугольник окна Form1 для источника
retval = GetWindowRect(Form1.hWnd, source)
' Копируем источник в цель
retval = CopyRect(target, source)

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

В начало.

Очень советуем: рекламное агентство Казань
Рекламные видеоролики
reklamabarsmedia.ru