ThreadPool Terminer Travail, lors de la fermeture du programme

Question

Existe-t-il un moyen de faire en sorte que ThreadPool termine son travail, lorsque le programme se ferme? Quand j'utilisais un Thread normal, je l'ai simplement mis en t.Join sur l'événement FormClosing .. mais ThreadPool ne semble pas avoir de méthode Join?

Answer 1

Je pense que je pourrais avoir résolu ..

Imports System.Threading 

Module Module1 

    Sub Main() 
     Dim t As New Tool 
     t.WaitToJoin() 
     Console.WriteLine("Done") 
     t.WaitToJoin() 
     Console.WriteLine("Done") 
     t.WaitToJoin() 
     Console.WriteLine("Done") 
     t.WaitToJoin() 
     Console.WriteLine("Done") 
     t.Update() 
     t.WaitToJoin() 
     Console.WriteLine("Done") 

     t.Update() 
     Thread.Sleep(1500) 
     t.Update() 
     t.WaitToJoin() 
     Console.WriteLine("Done") 

     t.Update() 
     Thread.Sleep(1500) 
     t.Update() 
     Thread.Sleep(1500) 
     t.Update() 
     Thread.Sleep(5500) 
     t.Update() 
     Thread.Sleep(10000) 
     t.Update() 
     t.WaitToJoin() 
     Console.WriteLine("Done") 
    End Sub 

End Module 

Public Class Tool 
    'Thread Stuff 
    Private threads As Integer = 0 
    Private threadsdone As AutoResetEvent = New AutoResetEvent(False) 

    Public Sub WaitToJoin() 
     If Interlocked.Read(threads) > 0 Then 
      threadsdone.WaitOne(New TimeSpan(0, 0, 30)) ' just to be sure not to lock forever, by some wierd reason, a timeout on 30 sec is added 
     End If 
    End Sub 

    Public Sub Update() 
     Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf HardWork), "Doing dome hard work...") 
    End Sub 

    Public Sub HardWork(ByVal state As Object) 
     Dim num As Integer = Interlocked.Increment(threads) 
     Console.WriteLine(num & " - " & state) 

     Thread.Sleep(10000) 
     If Interlocked.Decrement(threads) = 0 Then 
      threadsdone.Set() 
     End If 
    End Sub 
End Class 

Answer 2

Je ne pense pas que vous pouvez faire attendre Threadpool. Que diriez-vous d'utiliser un Task au lieu de threadpool? Quelque chose à l'effet comme le code suivant. Vous pouvez vérifier l'exemple complet here pour une meilleure compréhension

Dim taskA = Task.Factory.StartNew(Sub() DoSomeWork(10000000)) 
    taskA.Wait() 
    Console.WriteLine("taskA has completed.")