Графический способ рисования кругов - Visual Basic .NET

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

Здраствуйте! Помогите решить задачу: Написать программу для рисования узора (см. рисунок). Узор состоит из 50 вложенных окружностей. Использовать несколько (не менее 3) цветов. Я предполагаю, что нужно использовать цикл, или нет?

Код к задаче: «Графический способ рисования кругов - Visual Basic .NET»

textual
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TransparencyKey = Color.Blue
        Me.ClientSize = New Size(500, 500)
        Dim sz As Size = Me.ClientSize
        Dim bmp As Bitmap = New Bitmap(sz.Width, sz.Height)
        Me.BackgroundImageLayout = ImageLayout.Center
        Me.BackgroundImage = bmp
        Me.MinimumSize = Me.Size
        Me.DoubleBuffered = True
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim rf As RectangleF = New RectangleF(10, 10, sz.Width - 20, sz.Height - 20)
        g.SmoothingMode = Drawing2D.SmoothingMode.None
        g.Clear(Color.Transparent)
        g.FillEllipse(Brushes.Blue, rf) ' это ключевой момент - заливаем круг тем же цветом, что и у свойства TransparencyKey (задали в начале процедуры)
    End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.111 из 5


СДЕЛАЙТЕ РЕПОСТ