Функция OffsetRect

Declare Function OffsetRect Lib "user32.dll" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long

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

OffsetRect меняет позицию прямоугольника без изменения его размера. Если значение для перемещения отрицательно, прямоугольник перемещается влево или вверх(в зависимости от направления); положительные значения перемещают его вправо или вниз. Функция возвращает 0 в случае ошибки или 1 в успешном случае.

lpRect
Прямоугольник для перемещения.
x
Значение для перемещения прямоугольника горизонтально. Отрицательные значения двигают его налево, положительные- направо.
y
Значение для перемещения прямоугольника вертикально. Отрицательные значения двигают его вверх, положительные- вниз.

Пример:

' Сдвигаем окно Form1 на 50 пикселов вправо и 20 пикселов вверх,используя его прямоугольник.
Dim winrect As RECT  ' прямоугольник окна
Dim retval As Long  ' возвращаемое значение

retval = GetWindowRect(Form1.hWnd, winrect)  'получаем прямоугольник окна Form1
retval = OffsetRect(winrect, 50, -20)  ' сдвигаем прямоугольник вправо и вверх
' Теперь заменим окно на экране, чтобы соответствовать его новому прямоугольнику
retval = SetWindowPos(Form1.hWnd, 0, winrect.Left, winrect.Top, winrect.Right, winrect.Bottom, 0)

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

В начало.