vb.net 使用BackgroundWorker 线程方法

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Me.BackgroundWorker1.RunWorkerAsync()

        Me.BackgroundWorker1.WorkerReportsProgress = True

        Me.BackgroundWorker1.ReportProgress(100)

        messageBox("现在启动线程序。。运行之中")

    End Sub

 

    Private Sub backgroundWorker1_RunWorkerCompleted( _

  ByVal sender As Object, _

  ByVal e As EventArgs) _

  Handles BackgroundWorker1.RunWorkerCompleted

        Thread.Sleep(10)

        Me.TextBox5.Text = "线程处理完成"

    End Sub

 

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Thread.Sleep(10) ‘我想睡觉10

    End Sub

 

    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

        Me.ProgressBar1.Value = e.ProgressPercentage

    End Sub

End Class