如何减少VB.NET输出框中的延迟？

问题描述

想法是弹出一个新窗口，您可以在其中查看发生了什么。问题是：在弹出窗口中显示任何内容之前，有20秒的延迟。我可以验证一下，因为在控制台输出中我可以直接看到正在发生的事情。它从弹出窗口的开头开始，并且在显示所有记录之前该弹出窗口消失，因为该程序已经提前了20秒。 有谁知道如何显示弹出窗口并直接显示输出？

If DgvObj.CheckRecords(100,1) = 1 Then
    Dim dialog As New OutputBox("archive") With {
        .Width = 400,.Height = 200
        }
    dialog.Show()
    dialog.textBox.Text = "Waiting..." & Environment.NewLine
        
    Dim order_num As String
    For Each row As DataGridViewRow In DgvObj.DataGridName(1).Rows
        order_num = row.Cells("Order").Value
        dialog.textBox.AppendText("Archive record " & row.Index + 1 & " Order: " & order_num & Date.Now & Environment.NewLine)
        Console.WriteLine("Archive record " & row.Index + 1 & " Order: " & order_num & Date.Now)
        FormArchiveren(order_num,True)
    Next
    dialog.Close()
End If

解决方法

当您在Windows应用中执行某项操作时，例如单击一个按钮，并且buttonclick处理程序中的代码开始将Pi计算到十亿位小数位，依此类推，您可以防止处理所有UI更新的线程恢复正常工作保持UI的活力和响应能力。这意味着在执行工作时，应用程序中的显示器似乎挂起了-这是一个常见问题，因此在SO上可能有成千上万的问题在询问它

答案总是相同的，而且非常简单；不要让处理您的按钮单击事件的线程花费很长时间来执行任何操作。小于50毫秒通常是可以的。任何耗时超过50毫秒的操作，请勿在处理事件处理程序的同一线程上执行

有很多方法可以解决这个问题，最简单，最讨厌的就是定期告诉UI线程（您已捕获了它的注意力）去处理所有待处理的UI更新。在设置文本框AppendText之后插入Application.DoEvents()

最好，几乎同样简单的方法是使用基于任务的异步模式。使您在FormArchiveren中所做的工作异步*，使该方法返回一个Task，使您的点击处理程序（或启动该过程的任何事件）异步，然后等待FormArchiveren（order_num，True）

涉及更多编码的替代方法如今已不受欢迎，例如使用BackgroundWorker或真正的多线程解决方案。之所以使用较少，是因为它们复杂且难以正确处理（尽管backgroundworker更容易实现）

请注意，如果执行此操作（TAP，BackgroundWorker或执行FormArchiveren的单独线程），则不应从FormArchiveren中访问UI控件，因为执行工作的线程不是创建UI控件的线程，这是基本的Windows窗体编码的宗旨；除了创建控件的线程外，您不得使用其他任何线程来更新有关该控件的任何信息

* _{使FormArchiveren异步可能是微不足道的，或者可能涉及更多，但要对其提供任何明智的建议，我们需要查看它的定义（它所需要的其他任何内容）程序的一部分，最简单的是切换到使用已经调用过的同步方法的现有Async版本。如果它本身做了很多同步工作而没有现有的异步版本，则设置任务并运行他们自己将是“更多参与”的人}

,

您可以通过使用application.DoEvents更新统计信息

例如：

If DgvObj.CheckRecords(100,1) = 1 Then
Dim dialog As New OutputBox("archive") With {
    .Width = 400,.Height = 200
    }
dialog.Show()
dialog.textBox.Text = "Waiting..." & Environment.NewLine
Application.DoEvents()
 
Dim order_num As String
For Each row As DataGridViewRow In DgvObj.DataGridName(1).Rows
    order_num = row.Cells("Order").Value
    dialog.textBox.AppendText("Archive record " & row.Index + 1 & " Order: " & order_num & Date.Now & Environment.NewLine)
    
    Console.WriteLine("Archive record " & row.Index + 1 & " Order: " & order_num & Date.Now)
    Applicaton.DoEvents()
    FormArchiveren(order_num,True)
Next
dialog.Close()
End If

请注意，即使您接受其他建议的建议也可以将其移至另一个线程？您将需要使用doevents或某种刷新形式来使该显示在循环和代码运行时进行更新。因此，尽管一个单独的线程是一个好主意，但是它不能解决或解决您在代码循环中遇到的基本问题，而您必须提供一个命令以使显示在该过程中进行更新。

我还应该指出，doevents很沉重，如果要循环再说100行呢？您想放入一些代码，使其仅每100行或每半秒触发一次事件。因此，对于大型处理，建议您谨慎使用此方法。