Функция Arc

Declare Function Arc Lib "gdi32.dll" (ByVal hdc As Long, ByVal nLeftRect As Long, ByVal nTopRect As Long, ByVal nRightRect As Long, ByVal nBottomRect As Long, ByVal nXStartArc As Long, ByVal nYStartArc As Long, ByVal nXEndArc As Long, ByVal nYEndArc As Long) As Long

Платформа

Arc рисует часть дуги на устройстве используя текущее перо устройства. Windows 95/98: Дуга всегда рисуется против часовой стрелки от точки начала до точки конца. Windows NT/2000: Направление дуги зависит от текущей установки устройства.

Возвращаемое значение

В случае ошибки при при попытке рисовать дугу, функция возвращает 0 (Win NT/2000:: используйте GetLastError для получения кода ошибки). В успешном случае функция возвращает значение, отличное от нуля.

Параметры

hdc
Дескриптор контекста устройства, на котором рисуется дуга.
nLeftRect
Координата x левой верхней точки прямоугольника, ограничивающего эллипс.
nTopRect
Координата y левой верхней точки прямоугольника, ограничивающего эллипс.
nRightRect
Координата x правой нижней точки прямоугольника, ограничивающего эллипс.
nBottomRect
Координата y правой нижней точки прямоугольника, ограничивающего эллипс.
nXStartArc
Координата x радиальной точки, которая определяет отправную точку дуги.
nYStartArc
Координата y радиальной точки, которая определяет отправную точку дуги.
nXEndArc
Координата x радиальной точки, который определяет точку окончания дуги.
nYEndArc
Координата y радиальной точки, который определяет точку окончания дуги.

Пример

' Рисуем дугу, которая формирует верхнюю половину эллипса. Эллипс
' находится в координатах (100, 100), имеет ширину 200, и имеет высоту 100. Дуга оттянута
' на окне Form1 с использованием черного твердого пера .
'Вставьте код в Form_Paint
Dim hpen As Long  ' дескриптор для черного твердого пера
Dim holdpen As Long  ' дескриптор для пера,используемого Form1
Dim retval As Long  


hpen = GetStockObject(BLACK_PEN)  ' получаем дескриптор для черного твердого пера
holdpen = SelectObject(Form1.hDC, hpen)  ' и устанавливаем его для Form1.

' Эллипс ограничен прямоугольником  (0,50) - (200,150).
retval = Arc(Form1.hdc, 0, 50, 200, 150, 200, 100, 0, 100)
' Восстанавливаем прежнее перо для Form1.
retval = SelectObject(Form1.hDC, holdpen) 

Схожие функции
AngleArc, ArcTo, Ellipse, GetArcDirection, SetArcDirection
Категория:
Линии и кривые

В начало.