Функция Rectangle

Declare Function Rectangle Lib "gdi32.dll" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

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

Rectangle рисует прямоугольное поле на устройстве. Прямоугольник рисуется текущим цветом устройства и заполняется, используя текущие цвет и кисть. Функция возвращает 0 в случае ошибка, или 1 в успешном случае.

hdc
Контекст устройства объекта.
X1
Координата x левого верхнего угла прямоугольника.
Y1
Координата y левого верхнего угла прямоугольника.
X2
Координата x нижнего правого угла прямоугольника.
Y2
Координата y нижнего правого угла прямоугольника.

Пример:

' Рисуем зеленый прямоугольник на окне Form1 с верхним левым 
' углом (25,30) и нижним правым углом (100,50)
Dim retval As Long  ' возвращаемое значение

Form1.ForeColor = RGB(0, 255, 0)  ' устанавливаем ForeColor формы в зеленый цвет
retval = Rectangle(Form1.hdc, 25, 30, 100, 50)  ' рисуем прямоугольник

Схожие функции: RoundRect
Категория: Фигуры

В начало.