Функция RoundRect

Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
RoundRect рисует округленный прямоугольник на устройстве текущим цветом формы и заполняет его текущим цветом кисти. Первые две пары координат (x,y) определяют верхний левый и нижний правый углы прямоугольника. Третья пара определяет ширину и высоту округленных углов
hdc
Контекст устройста
X1
Координата x левого верхнего угла соответствующего прямоугольника
Y1
Координата y левого верхнего угла соответствующего прямоугольника
X2
Координата x нижнего правого угла соответствующего прямоугольника
Y2
Координата y нижнего правого угла соответствующего прямоугольника
X3
Ширина каждого округленного угла
Y3
Высота каждого округленного угла

Пример

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

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

Смотри также

Rectangle

Категория

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