Adding Image at runtime causes exception

[Adam Maltby]

Hi,

I am adding an new picbox and animated gif to it at runtime
Dim img As Image = Image.FromFile( Application.Sta rtupPath & "\animation.gif ")
With pic_Wait
.Location = New Point(300, 250)
.Width = 72
.Height = 101
.BackColor = Color.Transpare nt
.BorderStyle = BorderStyle.Non e
.Image = img
End With

When I run this code it exceptions out with a general GDI+ error.

Help please! :)

Cheers
Adam

[Ken Tucker [MVP]]

Hi,

It might be because of the backcolor of the picture box being
transparent. Try it with out it.
Ken
----------------
"Adam Maltby" <ad***@frfl.co. uk> wrote in message
news:%2******** ********@TK2MSF TNGP15.phx.gbl. ..
Hi,

I am adding an new picbox and animated gif to it at runtime
Dim img As Image = Image.FromFile( Application.Sta rtupPath &
"\animation.gif ")
With pic_Wait
.Location = New Point(300, 250)
.Width = 72
.Height = 101
.BackColor = Color.Transpare nt
.BorderStyle = BorderStyle.Non e
.Image = img
End With

When I run this code it exceptions out with a general GDI+ error.

Help please! :)

Cheers
Adam

[Adam Maltby]

Hi,

It fails even if I take out backcolor.
It always fails where the image is specified be it whether i do it by putting the image file in a dim and passing that to .image or if i remove the dim and specify directly at .image

Cheers
Adam

[james]

I had a similar problem with a splash screen that didn't want to get the
image correctly and used this to correct it:
Private Sub Splash_Load(ByV al sender As Object, ByVal e As System.EventArg s)
Handles MyBase.Load

Me.BackgroundIm age = Image.FromFile( mypath() + "\Flowers\Splas h.jpg")

Me.Height = Me.BackgroundIm age.Height

Me.Width = Me.BackgroundIm age.Width

End Sub

Private Function mypath() As String

Return _

Path.GetDirecto ryName([Assembly].GetExecutingAs sembly().Locati on)

End Function

I tried to use Application.Sta rtupPath and it would give problems on
different machines. This function
eliminated the problem.
Hope it at least gives you another thing to try.
james


"Adam Maltby" <ad***@frfl.co. uk> wrote in message
news:%2******** ********@TK2MSF TNGP15.phx.gbl. ..
Hi,

I am adding an new picbox and animated gif to it at runtime
Dim img As Image = Image.FromFile( Application.Sta rtupPath &
"\animation.gif ")
With pic_Wait
.Location = New Point(300, 250)
.Width = 72
.Height = 101
.BackColor = Color.Transpare nt
.BorderStyle = BorderStyle.Non e
.Image = img
End With

When I run this code it exceptions out with a general GDI+ error.

Help please! :)

Cheers
Adam

--------------------------------------------------------------------------------
Hi,

I am adding an new picbox and animated gif to it at runtime
Dim img As Image = Image.FromFile( Application.Sta rtupPath &
"\animation.gif ")
With pic_Wait
.Location = New Point(300, 250)
.Width = 72
.Height = 101
.BackColor = Color.Transpare nt
.BorderStyle = BorderStyle.Non e
.Image = img
End With

When I run this code it exceptions out with a general GDI+ error.

Help please! :)

Cheers
Adam

[Adam Maltby]

thanks - i'll give it a shot.

[Adam Maltby]

I'm afraid that did not work either.......

[james]

I know that was not all of your code for loading the image. But, I did not
see where you assigned "img" to your picturebox so that it could actually
display it. That itself would cause a general error in GDI+.
Maybe, you should post more of the code you are using.
james

"Adam Maltby" <ad***@frfl.co. uk> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..
I'm afraid that did not work either.......

--------------------------------------------------------------------------------
I'm afraid that did not work either.......

[Adam Maltby]

It was on the first pose in the line above the With entry.

But for reference it was:

Dim img As Image = Image.FromFile( Application.Sta rtupPath & "\animation.gif ")
Cheers
Adam