Функция InflateRect

Declare Function InflateRect Lib "user32" (lpRect As RECT, _
    ByVal x As Long, ByVal y As Long) As Long

InflateRect увеличивает или уменьшает размер прямоугольника. Значения для изменений добавлены к обеим его сторонам, так что в действительности ширина и\или высота увеличений прямоугольника двойное. Например, если Вы передаете 20 как x, левые и правые стороны будут оба расширены на 20, так что ширина будет увеличена на 40. Положительные значения увеличивают размер, в то время как отрицательные значения уменьшают это

lpRect

Требуемый прямоугольник

x

Значение для изменения ширины прямоугольника. Положительные значения увеличивают ширину; отрицательные значения уменьшают

y

Значение для изменения высоты прямоугольника. Положительные значения увеличивают высоту; отрицательные значения уменьшают

Пример

' Увеличим  ширину окна Form1  на 100 и сократим ее
' высоту на 50 
Dim winrect As RECT  ' получим прямоугольник окна
Dim retval As Long  ' возвращаемое значение

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

Смотри также

OffsetRect

Категория

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