Функция Rectangle

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

Rectangle рисует прямоугольник на устройстве текущим цветом устройства и заполняется, используя текущие цвет и кисть

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

Пример

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

Смотри также

RoundRect

Категория

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