Dim i As Integer = 0, j As Integer = 0, Puse As Boolean = False
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Puse = False
For i = j To 20000
UpdateLabel(i)
If Puse = True Then Exit For
Next
End Sub
Private Delegate Sub UpdateLabelInvoker(ByVal text As String)
Private Sub UpdateLabel(ByVal text As String)
If Me.Label1.InvokeRequired Then
Me.Label1.Invoke(New UpdateLabelInvoker(AddressOf UpdateLabel), text)
Else
Me.Label1.Text = text
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Button1.Text = "Do >>"
Button2.Text = "Puse"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If BackgroundWorker1.IsBusy <> True Then
BackgroundWorker1.RunWorkerAsync()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Puse = True
j = i
End Sub