Drawing Shapes

[dr3amxstar]

Hi Im using VB express 2005

I encountered some problems while drawing shapes in visual basic. Whenever i print shape on the picturebox it appears, but when i minimize it or go to another form and then come back to the form where the picturebox is, the image will disappear and i have to click the button for the image to be visible again. Is there any way to make the image stay?

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
 
        Dim gr As Drawing.Graphics = PictureBox1.CreateGraphics
 
        Dim br As Brush = Brushes.Blue
 
 
 
        Dim blackPen As New Pen(Color.SkyBlue, 3)
        ' Create location and size of ellipse.
        Dim x As Single = 4.0F
        Dim y As Single = 7.0F
        Dim width As Single = 25.0F
        Dim height As Single = 30.0F
        ' Draw ellipse to screen.
        gr.DrawEllipse(blackPen, x, y, width, height)
        gr.DrawEllipse(blackPen, 29, 7, 25, 30)
        gr.FillEllipse(Brushes.Pink, x, y, width, height)
        gr.FillEllipse(Brushes.Pink, 29, 7, 25, 30)
        gr.DrawRectangle(Pens.SkyBlue, 53, 17, 20, 10)
        gr.FillRectangle(Brushes.Pink, 53, 17, 20, 10)
 
End Sub

Regards
dr3amxstar

[lee123]

maybe you have to put the code behind the form to

[dr3amxstar]

maybe you have to put the code behind the form to

Im sorry i dun get what u mean

If i put the code under form1_load, no image wil come out

[dr3amxstar]

Now my image is able to stay but it does not respond to my button click.Instead the image comes out when the form loads.

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Invalidate()
 
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
 
        Dim objPen As New Pen(Color.Blue)
 
 
        e.Graphics.DrawRectangle(objPen, 10, 10, 200, 150)
        e.Graphics.DrawLine(objPen, 10, 10, 210, 160)
        e.Graphics.DrawLine(objPen, 210, 10, 10, 160)
 
 
    End Sub
 
End Class

[dr3amxstar]

haha Solved already :D

[Killer42]

haha Solved already :D

Ah, you're too good for us!

[dr3amxstar]

Ah, you're too good for us!

nah... im not, haha just lucky.. you guys have been a great help to me :D