при помощи бейсика нарисуйте любой рисунок срочно надо заранее спасибо разрешение 640*480
Answers & Comments
Metkij
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
Answers & Comments
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