Функция 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

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

RoundRect рисует округленный прямоугольник на устройстве текущим цветом формы и заполняет его текущим цветом кисти.Первые две пары координат (x,y) определяют верхний левый и нижний правый углы прямоугольника. Третья пара определяет ширину и высоту округленных углов.Функция возвращает 0 в случае ошибки, или 1 в успешном случае.

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
Категория: Фигуры

В начало.