[jhaze2435]

Can someone please help me ......How can I scroll through images in vb.net. I have 5 pictures saves to my resources but I can also see 2. How can i advance through the pictures and show a description of each? I also have a timer but I am not sure how to enable it during run time. Is that my problem?

[_HAWK_]

You could load them into a List(Of Image) and with the timer just advance thru the list by index. To enable a timer you use .Enabled = True and the tick event will fire at the desired interval which is milli-seconds.

[jhaze2435]

hawkvalley1, on 01 January 2011 - 06:26 PM, said:

You could load them into a List(Of Image) and with the timer just advance thru the list by index. To enable a timer you use .Enabled = True and the tick event will fire at the desired interval which is milli-seconds.

hawkvalley1, on 01 January 2011 - 06:26 PM, said:

You could load them into a List(Of Image) and with the timer just advance thru the list by index. To enable a timer you use .Enabled = True and the tick event will fire at the desired interval which is milli-seconds.

I've loaded them into a list on my resources and I ahve the timer that si set to 200 milli-second and I have the timer property set to enable but it is only advancing once and how do I add a description to the image

[_HAWK_]

Show us your code, that is the way to get help here, you must show some initiative.

[jhaze2435]

hawkvalley1, on 01 January 2011 - 06:26 PM, said:

You could load them into a List(Of Image) and with the timer just advance thru the list by index. To enable a timer you use .Enabled = True and the tick event will fire at the desired interval which is milli-seconds.

hawkvalley1, on 01 January 2011 - 06:42 PM, said:

Show us your code, that is the way to get help here, you must show some initiative.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSpeed.Tick
        Dim intCounter As Integer

        Select Case intCounter
            Case 0
                Me.picChicagoBears.Image = My.Resources.Brian_urlacker

            Case 1
                Me.picChicagoBears.Image = My.Resources.Jay_Cutler

            Case 2
                Me.picChicagoBears.Image = My.Resources.Devin_hester_again

            Case 3
                Me.picChicagoBears.Image = My.Resources.Devin_Hester
            Case 4
                Me.picChicagoBears.Image = My.Resources.Symbol


                intCounter += 1
                If intCounter = 5 Then ' sets intCounter back to 0
                    intCounter = 0
                End If
        End Select
    End Sub

This post has been edited by macosxnerd101: 01 January 2011 - 08:10 PM
Reason for edit:: Please use code tags

[_HAWK_]

You need to move the intCounter outside of the tick event - class declaration, else it looses all value once the event is done. Otherwise that looks fine.

[jhaze2435]

hawkvalley1, on 01 January 2011 - 07:09 PM, said:

You need to move the intCounter outside of the tick event - class declaration, else it looses all value once the event is done. Otherwise that looks fine.

Thanks for your help it is still not working but I appreciate your willingness to help.

[_HAWK_]

Oh yeah move the intCounter reset code out of the last Case. Debug your code and you would have noticed that this part never executed.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSpeed.Tick
        Dim intCounter As Integer

        Select Case intCounter
            Case 0
                Me.picChicagoBears.Image = My.Resources.Brian_urlacker

            Case 1
                Me.picChicagoBears.Image = My.Resources.Jay_Cutler

            Case 2
                Me.picChicagoBears.Image = My.Resources.Devin_hester_again

            Case 3
                Me.picChicagoBears.Image = My.Resources.Devin_Hester
            Case 4
                Me.picChicagoBears.Image = My.Resources.Symbol
    'it was here and if intCounter was not 4 you could not reset the variable
              
        End Select
    'this part is now out of the Select Case
        intCounter += 1
        If intCounter = 5 Then ' sets intCounter back to 0
          intCounter = 0
        End If

 End Sub

This post has been edited by hawkvalley1: 01 January 2011 - 08:30 PM