Corruption in Image Control

[James Bond 007]

My program loads picture files into an image control from a specific directory every 2 seconds. Once it reach the end, it cycle to the beginning and reload the first pictures in again. After several cycles, it just crash and load a white image into the image control. Anyone experience with this before?

[Chris]

You must clear the image control picture before you loading a new image into it. if you did not do that, it take all you memory and cause your program having insufficient memory error.

Image1.Picture = LoadPicture()   
Image1.Picture = LoadPicture(<Your Image file>)

[kedaman]

BTW, you should load all images, if you don't have a too large amount of them, into stdpictures and then you just switch the pictures every 2 seconds.

[James Bond 007]

Thanks you Chris and Ked.


Ked I like to know what you mean by "into stdpictures"


I am making a screen saver loading against a particular directory. What you said make sense Chris. I thought of that but wasn't sure if that was the problem. Now you confirmed. Thanks.

StdPicture is a data type. (a picture). You can treat it the same way you would treat the "Picture" property of a PictureBox.

Dim MyPic As StdPicture

MyPic = LoadPicture("MyFileName.bmp")

Then you can load it into the Picturebox by using:

Picture1 = MyPic

[James Bond 007]

Thank you for your explantion Meg. Have a good weekend all.

[James Bond 007]

  Dim Temp As New StdPicture
  'Set Temp = LoadPicture()
  Set Temp = LoadPicture(File)
  Set Image1.Picture = Temp

  Dim Temp As New StdPicture
  Set Temp = LoadPicture()
  Set Temp = LoadPicture(File)
  Set Image1.Picture = Temp

[Nitro]

I am not sure about this but here is an idea.

You can also set = nothing.


SET Image1.Picture = Nothing
SET Image1.Picture = LoadPicture(Your File)

[kedaman]

Well actually it's not nessesary, the vb unloads the stdpicture automatically if you switch to another, otherways vb would be a bit crappy language.

Btw, 0 0 7, i thought you had an animation of pictures ?

You could have use of an array of stdpictures, of which you just switch to the image control, for instance in a timer:

private buffer() as stdpicture
private counter as integer, count as integer

Private Sub Form_Load()
Dim x as long
    count=10
    for x = 0 to 9
       Set buffer(X) = LoadPicture(File & x & ".bmp")
    next x
End Sub

Private Sub Timer1_Timer()
    counter=(counter + 1)mod count
    set image1.picture = buffer(counter)
End Sub

And theres one more thing, don't use new keyword in a declaration statement

[James Bond 007]

Thanks Kedaman,

If I store all 200 Jpegs in a directory into the array buffer(X), wouldn't that take up alot of memory?

[kedaman]

Whoops, that would be almost too much, unless they are small like 50*50 or something. If not you could skip the buffer thing, and just load the pictures with Loadpicture directly into the image.

[James Bond 007]

If I do that, I am back to square 1. I would get a freeze screen after the 400th picture. I am going to try either Chris or Nitro code. Setting it back to nothing before I load a new file into the image control. I think Chris is right, it was hogging up memory or resources.

Thanks for your help Kedaman!

[kedaman]

I'm out of ideas, well try Nitros and Chris stuff, but i'm sure the problem lays somewhere else

[James Bond 007]

Thank you for your time. You did all you can. Wish I can pay you in some way. Bye.