VB.NET

How to stop a loop displaying photos?

Please support our VB.NET advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Sep 2008

Posts: 27

Reputation: Sheryl99 is an unknown quantity at this point

Solved Threads: 0

Sheryl99

Offline

Light Poster

How to stop a loop displaying photos?

Oct 13th, 2008

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

 Help with Code Tags 
 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

•

Join Date: Feb 2008

Posts: 526

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 89

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: How to stop a loop displaying photos?

Oct 13th, 2008

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

 Help with Code Tags 
 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