线程数与线程数限制和执行过程参数

Question

我想要做的是创建一个应用程序执行某些操作。应该有最多10个线程在运行。

我有以下代码，它工作正常。我需要发送一个参数给“Somework”过程。我怎样才能做到这一点？

Module Module1 
    Sub Main() 
     Dim Task As New Action(AddressOf SomeWork) 

     dim I as integer 

     for i=1 to 20 
     If RunningThread < 10 Then 
      Task.BeginInvoke(AddressOf Callback, Nothing) 
      Threading.Interlocked.Increment(RunningThread) 
     Else 
      SyncLock (Lock) 
       tasks.Enqueue(Task) 
      End SyncLock 
     End If 
     next 

     Console.ReadLine() 
    End Sub 

    Private tasks As New Queue(Of action) 
    Private RunningThread As Integer 
    Private Lock As New Object 

    Dim I As Integer = 0 

    Private Sub SomeWork() 
     I += 1 
     Console.WriteLine(I & " doing some work - begin :: " & Now.ToString) 
     Threading.Thread.Sleep(10000) 
     Console.WriteLine(I & " doing some work - end :: " & Now.ToString) 
    End Sub 

    Private Sub Callback(ByVal o As Object) 
     If tasks.Count > 0 Then 
      Dim Task As Action 
      SyncLock (Lock) 
       Task = tasks.Dequeue 
      End SyncLock 
      Task.BeginInvoke(AddressOf Callback, Nothing) 
     Else 
      Threading.Interlocked.Decrement(RunningThread) 
     End If 
    End Sub 
End Module 

请帮忙。

感谢

Answer 1

可以实现轻松使用Task Parallel Library（TPL）使用Parallel.ForEach您的要求。使用一个构造函数，允许您指定ParallelOptions参数并将MaxDegreeOfParallelism设置为您的线程限制。