读取文本文件时Label控件无法实时更新的问题排查

你的代码问题出在UI线程被循环阻塞了：整个文件读取操作都在UI线程里同步执行，循环过程中UI线程被占满，根本没时间处理lbl_LinesRead的更新请求，所有控件的刷新都会积压到循环结束后才一次性完成，所以你只能看到最终的行数。

下面给两种解决办法：

办法1：加入UI刷新触发（简单快速） #

在每次更新Label后，调用Application.DoEvents()让UI线程处理积压的刷新请求，这样就能实时显示行数：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BTN_StartProcess.Click
    Dim linesRead As Integer = 0
    ' Using语句自动释放文件资源，比手动关闭更安全
    Using fileReader As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(fileToRead)
        Dim stringReader As String
        Do
            stringReader = fileReader.ReadLine()
            If stringReader IsNot Nothing Then
                TXT_Output.AppendText(stringReader & vbCrLf)
                linesRead += 1
                lbl_LinesRead.Text = linesRead.ToString
                ' 强制UI线程处理所有待执行的刷新操作
                Application.DoEvents()
            End If
        Loop Until stringReader Is Nothing
    End Using
End Sub

⚠️ 注意：这种方法可能导致意外的重入问题（比如用户在读取过程中多次点击按钮），建议在开始读取前禁用按钮，读取完成后再启用。

办法2：异步读取（推荐，更规范） #

用异步IO操作，让文件读取在后台线程执行，不阻塞UI线程，这样UI可以实时响应更新：

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles BTN_StartProcess.Click
    ' 先禁用按钮防止重复点击
    BTN_StartProcess.Enabled = False
    Dim linesRead As Integer = 0

    Using fileReader As New System.IO.StreamReader(fileToRead)
        Dim stringReader As String
        ' 异步读取第一行
        stringReader = Await fileReader.ReadLineAsync()
        
        While stringReader IsNot Nothing
            TXT_Output.AppendText(stringReader & vbCrLf)
            linesRead += 1
            lbl_LinesRead.Text = linesRead.ToString
            ' 异步读取下一行
            stringReader = Await fileReader.ReadLineAsync()
        End While
    End Using

    ' 读取完成后恢复按钮状态
    BTN_StartProcess.Enabled = True
End Sub

这种方式不会让程序出现假死，用户可以正常操作其他控件，是.NET桌面应用处理耗时操作的标准做法。

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