ПОНЯТНО О Visual Basic NET (том 3)

Ряд прямоугольников


Задается массивом прямоугольников. Метод DrawRectangles (не путать с DrawRectangle!) просто рисует все прямоугольники из массива. Вот код:

Dim Гр As Graphics = Me.CreateGraphics

Dim Массив_прямоугольников() As Rectangle = {New Rectangle(10, 50, 30, 40),  _

                                                                           New Rectangle(100, 10, 60, 20),  _

                                                                          New Rectangle(20, 20, 120, 50)}

Гр.DrawRectangles(Pens.Black, Массив_прямоугольников)

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

Рис. 17.2

Метод FillRectangles рисует те же прямоугольники закрашенными:

        Гр.FillRectangles (Brushes.OrangeRed, Массив_прямоугольников)



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