Como dibujar 64 ellipse usando GDI Necesito dibujar sobre un picturebox 64 elipses de 50 px ancho x 50 px de alto distribuidas en 8 filas con 8 elipses por fila lo que termina dando 64 elipses. Me han dicho que deberia usar 2 for pero no se como hacerlas. adjunto hecho hasta ahora alli pero alli hago ellipse por ellipse que esta mal porq deberia usar 2 for con un solo drawellipse pero no se como hacerlo
Public Class Form1
Dim gra As Graphics
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
gra = PictureBox.CreateGraphics
End Sub
Private Sub btAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAceptar.Click
'primera fila
gra.DrawEllipse(Pens.Black, 0, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 50, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 100, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 150, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 200, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 250, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 300, 0, 50, 50)
gra.DrawEllipse(Pens.Black, 350, 0, 50, 50)
'Segunda fila
gra.DrawEllipse(Pens.Black, 0, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 50, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 100, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 150, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 200, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 250, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 300, 50, 50, 50)
gra.DrawEllipse(Pens.Black, 350, 50, 50, 50)
End Sub
End Class |