Tecnologias De La Informacion

DIBUJAR UN RECTANGULO Y PINTARLO
Creamos un botón y un PictureBox
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
Dim gr As Graphics = PictureBox1.CreateGraphics
Dim mypen As New Pen(Color.Red)
Dim mypen1 As New SolidBrush(Color.Blue)

mypen.Width = 7gr.DrawRectangle(mypen, 10, 10, 150, 150)
gr.FillRectangle(mypen1, 10, 10, 150, 150)

End Sub
End Class

DIBUJAR UNA FLECHA
Public Class Form1

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim gr As Graphics = PictureBox1.CreateGraphics
Dim mypen As New Pen(Color.Red)
Dim mypen1 As NewSolidBrush(Color.Blue)

mypen.Width = 7

'gr.DrawRectangle(mypen, 10, 10, 150, 150)
'gr.FillRectangle(mypen1, 10, 10, 150, 150)

mypen.StartCap =Drawing2D.LineCap.SquareAnchor
mypen.EndCap = Drawing2D.LineCap.ArrowAnchor
gr.DrawLine(mypen, 10, 10, 100, 10)
End Sub
End Class

DIBUJAR LA CASA
Public Class Form1

Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics = Me.CreateGraphics

g.DrawLine(Pens.Black, 20, 10, 100, 10)g.DrawLine(Pens.Black, 10, 30, 100, 30)
g.DrawLine(Pens.Black, 20, 10, 10, 30)
g.DrawLine(Pens.Black, 20, 10, 30, 30)
g.DrawLine(Pens.Black, 10, 30, 10, 80)g.DrawLine(Pens.Black, 30, 30, 30, 80)
g.DrawLine(Pens.Black, 100, 10, 100, 80)
g.DrawLine(Pens.Black, 10, 80, 100, 80)
g.DrawLine(Pens.Black, 15, 45, 15, 80)g.DrawLine(Pens.Black, 15, 45, 25, 45)
g.DrawLine(Pens.Black, 25, 45, 25, 80)
g.DrawLine(Pens.Black, 40, 40, 80, 40)
g.DrawLine(Pens.Black, 40, 60, 80, 60)
g.DrawLine(Pens.Black, 80,...