EJERCICIO LINEA
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim grafico As Graphics
Dim lapiz As Pen grafico = CreateGraphics()
lapiz = New Pen(Color.Blue, 2)
grafico.DrawLine(lapiz, 10, 10, 100, 100)
End Sub
End Class
Dim grafico As Graphics
Dim lapiz As Pen grafico = CreateGraphics()
lapiz = New Pen(Color.Blue, 2)
grafico.DrawLine(lapiz, 10, 10, 100, 100)
End Sub
End Class
No hay comentarios:
Publicar un comentario