Pr14

Проект закрашенный треугольник.

  Используем полигон на 3 точки.

Для задания координат точек определим объект – массив целых.

Создадим новый объект на 6 чисел.

Элементам массива присвоим значения координат вершин треугольника.

   На форме два объекта

Drawingarea1, button1.

 Область рисования занимает почти всю форму. Кнопка управления внизу.

 

 

Private sub button1_click

Dim hd as integer[]

Hd=new integer[](6)

Hd[0]=200

Hd[1]=200

Hd[2]=250

Hd[3]=150

Hd[4]=350

Hd[5]=200

Draw.begin(drawingarea1)

Draw.fillstyle=1

Draw.forecolor=0

Draw.fillcolor=255

Draw.polygon(hd)

Draw.end()

End

 

   Примечание.

По этой программе можно  нарисовать любой многоугольник, заменив число координат 6 на большее четное число и присвоив значения всем координатам точек.