Ломаная

Задается массивом точек. Метод DrawLines (не путать с DrawLine!) соединяет соседние точки массива отрезками прямых. Вот код:

Dim Гр As Graphics = Me.CreateGraphics

Dim T1 As New Point(10, 50)

Dim T2 As New Point(100, 10)

Dim T3 As New Point(90, 80)

Dim T4 As New Point(150, 30)

Dim Массив_точек() As Point = {T1, T2, T3, T4}

Гр.DrawLines(Pens.Black, Массив_точек)

Вот результат (Рис. 17.1).

Рис. 17.1

Вышеприведенный фрагмент можно записать короче:

Dim Гр As Graphics = Me.CreateGraphics

Dim Массив_точек() As Point = {New Point(10, 50), New Point(100, 10), New Point(90, 80), New Point(150, 30)}

Гр.DrawLines(Pens.Black, Массив_точек)

Этот метод хорош для построения графиков по точкам, полученным экспериментально.

Отрезки ломаной могут, конечно, взаимно пересекаться.

Содержание раздела

---

---