多线程,如何判断所有子线程都已经运行完毕(结束)
下面开了多个线程,如何判断所有子线程都已经运行完毕?
Dim i As Integer = 0
For i = 0 To item_count
tmpEmail = lstAddress.Items(i).Text
tmpEmail = Trim(Left(tmpEmail, 50))
Dim start As System.Threading.ParameterizedThreadStart
start = New ParameterizedThreadStart(AddressOf SendEmail)
Dim t As Thread = New Thread(start)
t.Start(tmpEmail)
Next
开始运行前提示“正在**请稍候**”,所有线程结束之后,提示“完成。”