Vb.net 如何将参数传递给任务（异步多线程）？

我想我是在遵循答案，但这一切都有点错误-我只是似乎把数字5传递给了每一个线程

我做错了什么？调用sub后，参数值是否应该固定

Public Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim ji As Integer, tasks As New List(Of Task)()

    For ji = 0 To 4
        tasks.Add(Task.Run(Sub() findPageCount(ji)))
    Next

    Await Task.WhenAll(tasks)
end sub

Sub findPageCount(ByVal iAmThread As Integer)

    Debug.Print("I am thread " & iAmThread)

    '...lots more stuff...

end sub

---

这可能与任务或多线程无关-只是lambda捕获的是一个变量，而不是一个值。@Stephen点击它。这应该可以解决您的问题：

dim hij=ji

Task.Run（Sub（）findPageCount（hij）

@StephenCleary，这很有效，我想我明白为什么。有什么地方我可以读到，因为我以前没有听说过lambda，但假设它与异步创建的新线程有关吗？@MartinKS:不，它与线程或异步无关。你可以读更多。