Функция Arc

Declare Function Arc Lib "gdi32" (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 рисует часть дуги на устройстве, используя текущее перо устройства. Направление дуги зависит от текущей установки устройства.

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

В случае ошибки при попытке рисовать дугу, функция возвращает 0 (используйте 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

Категория

Линии и кривые

Реклама