Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/11/2010, 15:12
programaciones
 
Fecha de Ingreso: noviembre-2010
Mensajes: 7
Antigüedad: 14 años, 3 meses
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