Функция AngleArc

Declare Function AngleArc Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dwRadius As Long, ByVal eStartAngle As Single, ByVal eSweepAngle As Single) As Long

Платформа

AngleArc рисует дугу на устройстве используя текущее для устройства перо. Круг, которым рисуется дуга,определена ее центром и радиусом. Начало и конечные точки дуги определены угловыми мерами в градусах, и рисуются против часовой стрелки от линии, параллельной положительной оси X. Дуга непосредственно оттянута или по часовой стрелке или против часовой стрелки соединненых точек, в зависимости от параметров настройки устройства. AngleArc также рисует линию, соединяющую текущий точку устройства к началу дуги.

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

Параметры

hdc
Дескриптор контекста устройства для рисования дуги.
x
Координата x центра круга.
y
Координата y центра круга.
dwRadius
Радиус круга.
eStartAngle
Угол (в градусах) для идентификации отправной точки дуги.
eSweepAngle
Угол (в градусах) для идентификации конечной точки дуги.

Пример

' Рисуем дугу, сформированную верхней половиной круга (от 0 до 180
' градусов против часовой стрелки). Круг центрирован в (100, 150) и имеет радиус
' 50. Дуга оттянута, используя сплошное черное перо.
Dim hpen As Long  ' дескриптор черного пера
Dim holdpen As Long   ' Дескриптор предварительно выбранного пера Form1
Dim retval As Long   ' возвращаемое значение

' Get the solid black stock pen and select it for use in Form1.
hpen = GetStockObject(BLACK_PEN)  ' get the pen's handle
holdpen = SelectObject(Form1.hDC, hpen)  ' select the pen

' Make sure arcs are drawn going counterclockwise
retval = SetArcDirection(Form1.hDC, AD_COUNTERCLOCKWISE)
' рисуем дугу
retval = AngleArc(Form1.hDC, 100, 150, 50, 0, 180)

' Select Form1's previous pen to restore the "defaults".
retval = SelectObject(Form1.hDC, holdpen)  ' select the old pen

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

В начало.