Функция SetRect

Declare Function SetRect Lib "user32" ( _
    lpRect As RECT,  _
    ByVal X1 As Long,  _
    ByVal Y1 As Long,  _
    ByVal X2 As Long,  _
    ByVal Y2 As Long) As Long

SetRect устанавливает позицию и размер прямоугольника. Две координаты указывают на левые верхние и нижние правые углы прямоугольника

lpRect

Прямоугольник, чтобы установить позицию и размер

X1

Координата X левого верхнего угла прямоугольника

Y1

Координата Y левого верхнего угла прямоугольника

X2

Координата X нижнего правого угла прямоугольника

Y2

Координата Y нижнего правого угла прямоугольника

Пример

' Установим прямоугольник winrect
' Использование этой функции более эффективно и берет
' меньшее количество памяти, чем 
' установка прямоугольника по четырем координатам
Dim winrect As RECT ' прямоугольник
Dim retval As Long  ' возвращаемое значение

retval = SetRect(winrect, 20, 30, 100, 50)

Смотри также

Категория