Функция SetArcDirection

Declare Function SetArcDirection Lib "gdi32.dll" (ByVal hdc As Long, ByVal ArcDirection As Long) As Long

Платформа: Win 95/98, Win NT

SetArcDirection устанавливает направление,в котором будет выводится дуга на устройстве. Дуга может рисоваться по часовой и против часовой стрелки. Хотя Win 95/98 поддерживает эту функцию,но при этом игнорируются настройки и дуги рисуются всегда против часовой стрелки! В случае успеха функция возвращает 1,в случае ошибки функция возвращает 0.

hdc
Контекст устройства для вывода дуги.
ArcDirection
Точно один из следующих флажков, определяющих направление для вывода дуг:
AD_CLOCKWISE = 2
Дуги рисуются по часовой стрелке от отправной точки до конечной точки.
AD_COUNTERCLOCKWISE = 1
Дуги рисуются против часовой стрелки от отправной точки до конечной точки.

Пример:

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

Form1.ForeColor = RGB(255, 0, 0)  ' установим красный цвет для формы
retval = SetArcDirection(Form1.hDC, AD_COUNTERCLOCKWISE)  ' рисуем дугу против часовой стрелки
' Эллипс ограничен прямоугольником (0,50)-(200,150).
retval = Arc(Form1.hDC, 0, 50, 200, 150, 200, 100, 0, 100)

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

В начало.