image loop in vb.net

[Alan N]

Hi, 1) You load all images into an array (16 not 15 by the way). 2) When the timer event occurs you should load one image into the PictureBox. What is your timer event handler doing? Alan.

[bapu2889]

Hello Thanks for your answer you mean some thing like ths

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For Me.I = 0 To 15
PictureBox1.Image = (MyImage(I))
Next I
End Sub

if yes then i have tried but still the same i know there is very small mistake but i am not getting there :confused:

[0x3c0]

Look at LoadImages. Assuming that you want the sequence to go in the order G1, G2, G3, G4, etc., you're setting the array in the wrong order. You load G10 before G2, and so on

Between the idea And the reality Between the motion And the act Falls the Shadow

[bapu2889]

hello thanks for your rep. no the order in array is right order so all the images should display as per array order what i what to do is when i start app it should display images until i close the app. i mean first image in array and then 2nd and 3rd up to 16th and then 1st image again but now it's load all the images and display only 16th image in to the picture box i want it keep displaying images from first image in array to last image in array and then go back to first image and so on waiting for your kind help

[Alan N]

Hi, Every time the timer event fires you want to display a different image, correct? Within your handler you have written a loop that loads all of the images every time it is called, hence you only ever see the last one, MyImage(15). The code should select one index, i.e. one of the values 0 to 15, and then load the image referenced by the index into the picture box. Alan.

[riced]

Something like this? :)

Private Sub Timer1\_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   Private Shared nextImage As Integer = 0
   PictureBox1.Image = MyImage(nextImage)
   nextImage = (nextImage + 1) Mod 16
End Sub

Regards David R --------------------------------------------------------------- "Every program eventually becomes rococo, and then rubble." - Alan Perlis

[Henry Minute]

Unless I have misread your code, it would not work! Every time the tick event fires you are setting nextImage to 0, before doing anything else, therefore the last line of your snippet is useless. The OP should use something like this:

Private Sub Timer1\_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   PictureBox1.Image = MyImage(Me.I)
   Me.I = (Me.I + 1) Mod 16
End Sub

Henry Minute Do not read medical books! You could die of a misprint. - Mark Twain Girl: (staring) "Why do you need an icy cucumber?" “I want to report a fraud. The government is lying to us all.”

[riced]

nextImage is static (i.e. Shared in VB) so it is set to 0 only on first call to Timer1_Tick. It retains its value between successive calls which is what I think the OP requires. The problem with Me.I is it could be changed outside of the handler by some unrelated code. When the handler is called you have no idea what the value of Me.I is so it's wide open to index out of bounds exception.

Regards David R --------------------------------------------------------------- "Every program eventually becomes rococo, and then rubble." - Alan Perlis

[Henry Minute]

OK. Sorry I missed that. :-O

Henry Minute Do not read medical books! You could die of a misprint. - Mark Twain Girl: (staring) "Why do you need an icy cucumber?" “I want to report a fraud. The government is lying to us all.”

[riced]

Easily done - often guilty of it myself. :) When I thought about the bounds it struck me that this is better.

Private Sub Timer1\_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   Private Shared nextImage As Integer = 0
   PictureBox1.Image = MyImage(nextImage)
   nextImage = (nextImage + 1) Mod MyImage.Length
End Sub

Then you don't have to do anything if more images are added or some removed.

Regards David R --------------------------------------------------------------- "Every program eventually becomes rococo, and then rubble." - Alan Perlis

[bapu2889]

hello thanks for your rep. yes it's works fine this is what i changed

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    'PictureBox1.Image = (MyImage(I))
    Static nextImage As Integer = 0
    PictureBox1.Image = MyImage(nextImage)
    nextImage = (nextImage + 1) Mod MyImage.Length
End Sub

it's working as i was trying to thanks a lot sir have a nice day :-D

[Henry Minute]

riced wrote:

Then you don't have to do anything if more images are added or some removed.

Good point. I really should practice VB.Net more, if I want to play over here. :)

Henry Minute Do not read medical books! You could die of a misprint. - Mark Twain Girl: (staring) "Why do you need an icy cucumber?" “I want to report a fraud. The government is lying to us all.”