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

Узнай цену своей работы

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

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

Решение задачи: «Графический способ рисования кругов»

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

ИИ поможет Вам:


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

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы