Функция PolylineTo

Declare Function PolylineTo Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cCount As Long) As Long
PolylineTo рисует ряд линий на устройстве. Эти линии соединяются в точках, данные в массиве lppt, используя текущий цвет устройства. Функция рисует линии, соединяя текущую точку устройства с первой точкой, первую точку со второй точкой и т.д. При завершении работы функция устанавливает текущую точку в последнюю точку массива
hdc
Контекст устройства для вывода линий
lppt
Массив точек для рисования линий
cCount
Число элементов в массиве lppt

Пример

' Рисуем зеленый треугольник
' на окне Form1. Но сначала установим текущую точку в (100,100)
Dim points(0 To 2) As POINTAPI  ' точки, передаваемые функции
Dim curpt As POINTAPI  'получаем текущую точку от функции MoveToEx
Dim retval As Long  ' возвращаемое значение

' Устанавливаем текущую точку Form1 в координатах (100,100)
retval = MoveToEx(Form1.hDC, 100, 100, curpt)

' Загружаем координаты точек в массив 
points(0).x = 200: points(0).y = 150
points(1).x = 0: points(1).y = 150
points(2).x = 100: points(2).y = 100

Form1.ForeColor = RGB(0, 255, 0)  ' устанавливаем зеленый цвет текущим цветом для Form1
retval = PolylineTo(Form1.hDC, points(0), 3)  ' рисуем

Смотри также

LineTo, Polyline, PolyPolyline

Категория

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