Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/09/2011, 07:53
dieama
 
Fecha de Ingreso: octubre-2008
Ubicación: Córdoba
Mensajes: 31
Antigüedad: 16 años, 2 meses
Puntos: 0
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