小编Man*_*ger的帖子

我有以下代码来报告进度。该函数CalculateMandelbrot()似乎是异步工作的，但我的进度条什么也没显示。

Public Class Form1
    Private Async Function Button1_Click(sender As Object, e As EventArgs) As Task Handles Button1.Click
        Dim prog As Progress(Of Integer) = New Progress(Of Integer)(Function(x) ProgressBar1.Value = x)
        Await Task.Run(Function() CalculateMandelbrot(prog))
        Dim ende As Boolean = True
    End Function

    Private Function CalculateMandelbrot(ByVal progress As IProgress(Of Integer))
        For xi = 0 To 100
            Threading.Thread.Sleep(40)
            progress.Report(xi)
        Next
        Return 42
    End Function
End Class