How to stop a loop displaying photos?

Expand Post »

Hello.

I am writing an application that displays photos. I need to be able to stop the SlideShow when the user presses the "Stop" button. Right now, what's happening when the Stop button is pressed, is a public variable, bStop, is set to True. It works sort-of, and it also takes a long time. There must be a better way. Any ideas?

Thanks

vbnet Syntax (Toggle Plain Text)
Private Sub SlideShow()
        Dim x As Integer = 0
        With cboFileNames
            For x = 0 To (.Items.Count) - 1
                If bStop Then Exit For
                PictureBox1.Image = Image.FromFile(.Items(x).ToString)
                My.Application.DoEvents()
                Threading.Thread.Sleep(3000)
            Next
        End With
    End Sub
Private Sub SlideShow()
        Dim x As Integer = 0
        With cboFileNames
            For x = 0 To (.Items.Count) - 1
                If bStop Then Exit For
                PictureBox1.Image = Image.FromFile(.Items(x).ToString)
                My.Application.DoEvents()
                Threading.Thread.Sleep(3000)
            Next
        End With
    End Sub

Last edited by cscgal; Oct 13th, 2008 at 12:24 pm. Reason: Fixed code tag

Sheryl99

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

27 posts
since Sep 2008

Permalink

Oct 13th, 2008

Re: How to stop a loop displaying photos?

Hi,
Use Timer control instead of Thread.Sleep (). Because ur application will freeze for the given milliseconds.

if you use timer control, you can disable the timer when stop button is clicked.

To use timer, change the Following

> Use X as Global variable
> Draw a Timer Control and Set Enabled Property to True and Interval property to 3000
> Place the above code into Timer_Tick event

VB Syntax (Toggle Plain Text)
Dim x As Integer = 0
 
Private Sub Timer1_Tick ( ... )
   With cboFileNames 
      'For x = 0 To (.Items.Count) - 1
      'If bStop Then Exit For
       PictureBox1.Image =  Image.FromFile(.Items(x).ToString)
       My.Application.DoEvents()
      'Threading.Thread.Sleep(3000)
      'Next
      x = x + 1
  End With
End Sub
 
Private Sub ButtonStop_Click( .. )
   Timer1.Enabled = False
End Sub
Dim x As Integer = 0

Private Sub Timer1_Tick ( ... )
   With cboFileNames 
      'For x = 0 To (.Items.Count) - 1
      'If bStop Then Exit For
       PictureBox1.Image =  Image.FromFile(.Items(x).ToString)
       My.Application.DoEvents()
      'Threading.Thread.Sleep(3000)
      'Next
      x = x + 1
  End With
End Sub

Private Sub ButtonStop_Click( .. )
   Timer1.Enabled = False
End Sub

Note : Also Check the x value whether it is inside upper and lower bound value inside TImer1_Tick Event

Last edited by selvaganapathy; Oct 13th, 2008 at 8:22 am.

selvaganapathy

Reputation Points: 44

Solved Threads: 101

Posting Pro

Offline

547 posts
since Feb 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: embeding excel spreadsheet into stand alone Vb.net program

Next Thread in VB.NET Forum Timeline: How Could I Do Nested Datagridview in vb.net

DaniWeb Message

Cancel Changes

User Name
Password