Графика: построить треугольник и прямоугольник - Visual Basic .NET

Формулировка задачи:

1. Постройте треугольник с вершинами (100,100), (150,100), (80,170). 2. Постройте прямоугольник с вершинами (80,80), (170, 80), (170, 150), (80, 150)

Решение задачи: «Графика: построить треугольник и прямоугольник»

textual
                            Листинг программы 
                        

                            Dim bmp As New Bitmap(200, 200, Imaging.PixelFormat.Format32bppPArgb)
Dim g As Graphics = Graphics.FromImage(bmp)
g.Clear(Color.White)
Dim points1() As Point = {New Point(100, 100), New Point(150, 100), New Point(80, 170)}
Dim points2() As Point = {New Point(80, 80), New Point(170, 80), New Point(170, 150), New Point(80, 150)}
g.DrawPolygon(Pens.Red, points1) ' рисуем полигон на основе массива точек 1
g.FillPolygon(New SolidBrush(Color.FromArgb(50, 255, 0, 0)), points1) ' заливаем его, если надо
g.DrawPolygon(Pens.Blue, points2) ' рисуем полигон на основе массива точек 2
g.FillPolygon(New SolidBrush(Color.FromArgb(50, 0, 0, 255)), points2) ' заливаем его, если надо
Me.BackgroundImage = bmp
Me.BackgroundImageLayout = ImageLayout.Center
                        