VB.NET中异步执行耗时函数未等待完成的问题求助

问题根源 #

你当前用Async Sub定义process_files，这种形式没有返回值（无法返回Task），调用它的同步代码会直接跳过等待，导致你误以为任务已完成，但后台异步操作还在执行。

修复步骤 #

1. 将异步过程改为返回Task的Async Function #

把Async Sub改成Async Function，返回Task，这样调用方可以通过Await等待整个处理流程完成：

Async Function ProcessFilesAsync() As Task
    For Each myrow In DGV_inputfiles.Rows
        ' 跳过DataGridView自动生成的空行
        If myrow.IsNewRow Then Continue For

        ' 安全获取单元格值并转为字符串
        Dim inputPDF = myrow.Cells("col_filenamefull").Value?.ToString()
        Dim outputPDF = myrow.Cells("col_outname").Value?.ToString()

        ' 跳过文件名为空的条目
        If String.IsNullOrEmpty(inputPDF) Or String.IsNullOrEmpty(outputPDF) Then
            Continue For
        End If

        ' 等待耗时函数执行完成
        Await Task.Run(Sub()
                           TimeConsumingFunction(inputPDF, outputPDF)
                       End Sub)
    Next
End Function

2. 在调用处使用Await等待异步过程完成 #

比如在按钮点击事件（或其他触发处理的地方），将事件处理程序改为Async Sub，并Await异步函数，同时添加UI状态控制和异常处理：

Private Async Sub btnStartProcess_Click(sender As Object, e As EventArgs) Handles btnStartProcess.Click
    ' 禁用按钮防止重复触发
    btnStartProcess.Enabled = False

    Try
        ' 等待所有文件处理完成
        Await ProcessFilesAsync()
        MessageBox.Show("所有文件处理完成！")
    Catch ex As Exception
        ' 捕获并提示错误
        MessageBox.Show($"处理出错：{ex.Message}")
    Finally
        ' 恢复按钮状态
        btnStartProcess.Enabled = True
    End Try
End Sub

关键说明 #

• Async Sub仅适合事件处理程序，其他异步逻辑优先用Async Function返回Task/Task(Of T)，这样调用方可以明确等待操作完成。
• 加入空值检查和新行判断，避免因无效数据导致的异常。
• 操作前后禁用/启用按钮，能直观告知用户任务正在进行，防止重复操作。

内容的提问来源于stack exchange，提问作者Ash_stack