Функция Ellipse

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

Ellipse рисует эллипс на устройстве. Две координатных пары передаваемых функции не являются непосредственно частью эллипса, но определяют его прямоугольник ограничения. Прямоугольник ограничения - самый маленький возможный прямоугольник, содержащий эллипс. Эллипс рисуется текущим цветом устройства.

hdc

Контекст устройства

X1

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

Y1

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

X2

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

Y2

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

Пример

' Рисуем красный эллипс
' с прямоугольником ограничения (25,30)-(100,75)
' на PictureBox1
Dim retval As Long  ' возвращаемое значение
' Устанавливаем красный цвет
PictureBox1.ForeColor = RGB(255, 0, 0)
retval = Ellipse(PictureBox1.hdc, 25, 30, 100, 75)

Смотри также

AngleArc, Arc, ArcTo, Chord, Pie

Категория

Фигуры