При помощи бейсика нарисуйте любой рисунок срочно надо заранее спасибо разрешение 640*480

При помощи бейсика нарисуйте любой рисунок срочно надо заранее спасибо разрешение 640*480
Гость
Ответ(ы) на вопрос:
Гость
Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim g As Graphics        g = PictureBox1.CreateGraphics        g.DrawEllipse(Pens.Red, 75, 0, 50, 50)        g.DrawEllipse(Pens.Red, 50, 50, 100, 100)        g.DrawEllipse(Pens.Red, 0, 150, 200, 200)    End Sub End Class У вас получuтся снеговUк, только добавь на форму pictureBox
Не нашли ответ?
Ответить на вопрос
Похожие вопросы