Progress Bar Help

[Manz]

hi, can someone please help me, i have added a progress bar and i added a start and stop button, the start is working fine, but i dont know the coding for the stop button could someone please tell me the coding for the stop button please, here is my codng for the start button, any help would be appreciated, thanks

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Integer
        For num = 1 To 100
            ProgressBar1.Value = num
            lblCounter.Text = Format(num / 100, "p")
            lblCounter.Refresh()
            Threading.Thread.Sleep(100)
            lblvfound.Visible = True

            lblvfound2.Visible = False
            If lblCounter.Text = "100.00 %" Then
                lblvfound2.Visible = True
            ElseIf lblCounter.Text = "0.10 %" Then
                lblvfound.Visible = True
            End If

        Next
        MsgBox("The Virus Scanning Is Complete", MsgBoxStyle.OkOnly)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

[si_the_geek]

Thread moved from Classic Visual Basic (VB6 and earlier) forum to VB.Net (VB2002 and later) forum.

[Manz]

please, does anyone know the coding for the stop button?

[masfenix]

I dont know if this will work, but you can create an event for the stop.

Once the stop button is clicked you raise that event.

[dbasnett]

Are you trying to Stop the for - next loop in button1? As usual I don't get the question.

[.paul.]

Public Class Form1
 
    private cancelled as boolean = false
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Integer
        For num = 1 To 100
 
            if cancelled then
               exit sub
            end if
 
            ProgressBar1.Value = num
            lblCounter.Text = Format(num / 100, "p")
            lblCounter.Refresh()
            Threading.Thread.Sleep(100)
            lblvfound.Visible = True
 
            lblvfound2.Visible = False
            If lblCounter.Text = "100.00 %" Then
                lblvfound2.Visible = True
            ElseIf lblCounter.Text = "0.10 %" Then
                lblvfound.Visible = True
            End If
 
        Next
        MsgBox("The Virus Scanning Is Complete", MsgBoxStyle.OkOnly)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        cancelled = true
    End Sub
 
end class