GetArcDirection

Declare Function GetArcDirection Lib "gdi32" (ByVal hdc As Long) As Long

GetArcDirection определяет направление, в котором дуги рисуются на устройстве. Дуги могут рисоваться по часовой стрелке или против часовой стрелки от отправной точки до конечной точки.

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

Функция возвращает 0 в случае ошибки или точно один из следующих флажков, определяющих направление для вывода дуг:

AD_CLOCKWISE = 2Дуги рисуются по часовой стрелке от отправной точки до конечной точки
AD_COUNTERCLOCKWISE = 1Дуги рисуются против часовой стрелки от отправной точки до конечной точки

Параметры

hdc
Контекст устройства для вывода дуги

Пример

' Показываем направление,
' в котором рисуется дуга на форме
Dim arcdir As Long  ' направление дуги

' Получаем направление дуги для Form1
arcdir = GetArcDirection(Form1.hDC)
If arcdir = AD_CLOCKWISE Then
  Debug.Print "Form1 рисует дугу по часовой стрелке"
ElseIf arcdir = AD_COUNTERCLOCKWISE Then
  Debug.Print "Form1 рисует дугу против часовой стрелки"
End If

Смотри также

AngleArc, Arc, ArcTo, SetArcDirection

Категория

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