Функция 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
Категория
Линии и кривые