代码段在第 7 行有错误“对非共享成员的引用需要对象引用”。我正在使用 MS 示例来解决这个问题,所以它应该可以工作。谢谢!
Sub main()
Dim TokenSource As New CancellationTokenSource()
Dim token As CancellationToken = TokenSource.Token
Dim TaskX As Task
Dim tasks As New ConcurrentBag(Of Task)()
MessageBox.Show("In Module taskStore running Main subroutine")
TaskX = TaskFactory.StartNew(Sub() DoSomeWork(1, token), token)
tasks.Add(t)
End Sub
Sub DoSomeWork(ByVal taskNum As Integer, ByVal ct As CancellationToken)
If ct.IsCancellationRequested = True Then
MessageBox.Show("TaskX cancelled before it got started")
ct.ThrowIfCancellationRequested()
End If
Dim maxIterations As Integer = 100
End Sub