 
			
				27/11/2010, 15:12
			
			
			     |  
      |    |    |    Fecha de Ingreso: noviembre-2010  
						Mensajes: 7
					  Antigüedad: 15 años Puntos: 0     |        |  
  |      Urgenteee por favor¡¡¡        hola a todos!! soy nueva aqui y no se mucho de programación con VisualBasic,necesito que me ayudeis en un problemilla por favor. 
necesito explicar estos pasos,y para que se hacen.   
Dim listaPuntos As New ArrayList     
    Private Sub Panel1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PanelDibujo.MouseDown 
        Dim punto As New Point 
        punto.X = e.X 
        punto.Y = e.Y   
        listaPuntos.Add(punto) 
        PanelDibujo.Refresh() 
    End Sub   
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelDibujo.Paint 
        Pintar(e.Graphics) 
    End Sub   
    Private Sub Pintar(ByVal graphics As Graphics)   
        For i As Integer = 0 To listaPuntos.Count - 2 Step 1 
            graphics.DrawLine(Pens.Blue, listaPuntos.Item(i), listaPuntos.Item(i + 1)) 
        Next   
    End Sub     
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        borrar() 
    End Sub           |