110,502
社区成员
发帖
与我相关
我的任务
分享
Dim _cts As CancellationTokenSource = New CancellationTokenSource()
Dim po = New ParallelOptions()
po.CancellationToken = _cts.Token
po.MaxDegreeOfParallelism = 20
Dim aa() As Action
ReDim aa(16)
For i As Integer = 0 To aa.Length - 1
Dim ii = i
aa(i) = New Action(Sub() MsgBox(ii))
Next
Parallel.Invoke(po, aa)