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, _)