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