VB.NET 标签未更新从文本文件中读取的内容

Question

我有这个 Private Sub 可以逐行读取文本文件并输出到文本框，我想显示读取的行数，但是当我运行 lbl_LinesRead.Text 时，只有在文件读取完成后才会更新。

我做错了什么？

Private Sub Button1_Click(sender As Object, e As EventArgs) 处理 BTN_StartProcess.Click

Dim linesRead As Integer
Dim fileReader As System.IO.StreamReader
Dim stringReader As String
linesRead = 0
fileReader = My.Computer.FileSystem.OpenTextFileReader(fileToRead)

Do

    stringReader = fileReader.ReadLine()
    TXT_Output.AppendText(stringReader & vbCrLf)
    linesRead += 1
    lbl_LinesRead.Text = linesRead.ToString


 Loop Until stringReader Is Nothing

结束子

每行读取更新的数字

Answer 1

您需要强制重新绘制标签。您可以通过添加轻松完成

lbl_LinesRead.Refresh()

之后

lbl_LinesRead.Text = linesRead.ToString

这是结果的 .gif（放慢速度）：