Графический способ рисования кругов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д