Функция Polyline
Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Polyline рисует ряд линий на устройстве. Эти линии соединяются в точках, данные в массиве lpPoint, используя текущий цвет устройства. П ервая точка соединяется со второй, вторая с третьей и т.д. Первая и последняя точки не соединяются
- hdc
- Контекст устройства для вывода линий
- lpPoint
- Массив координат x и y каждой точки для вывода линий
- nCount
- Число элементов в массиве lpPoint
Пример
' Рисуем ломаную линию
' на окне Form1
Dim points(0 To 3) As POINTAPI ' точки для вывода линий
Dim retval As Long ' возвращаемое значение
' Помещаем точки в массив
points(0).x = 100: points(0).y = 100
points(1).x = 200: points(1).y = 150
points(2).x = 0: points(2).y = 150
points(3).x = 100: points(3).y = 200
Form1.ForeColor = RGB(0, 255, 0) ' установим зеленый цвет для Form1
retval = Polyline(Form1.hDC, points(0), 4) ' рисуем линии
Смотри также
LineTo, PolylineTo, PolyPolyline
Категория
Линии и кривые