vb.net 多线程

1. BackgroundWorker 控件

      （a）事件DoWork 处理事件

       (b) 事件 ProgressChange 显示处理进展情况

       （c)事件complete 线程处理结束时引发

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

            '进度报告-需非实时
           ‘ If processCount Mod CInt(processTotal / 100) = 0 Then
                BackgroundWorker1.ReportProgress(processCount, processTotal)
            ’End If

end sub

   
  

Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Label1.Text = e.ProgressPercentage / e.UserState
    End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Label1.Text = "update ok"
    End Sub

2. 

Private Sub Thread1()
    end sub


 Dim thrd1 As New Threading.Thread(New Threading.ThreadStart(AddressOf Thread1))
        thrd1.Start()

3.threadpool