如何在VB.NET中减少输出框中的延迟？
这个想法是弹出一个新窗口，在那里你可以看到正在发生的事情。问题是：在弹出窗口中显示任何内容之前有20秒的延迟。我可以验证这一点，因为在控制台输出中，我可以直接看到发生了什么。它从弹出窗口的开头开始，弹出窗口在显示所有记录之前消失，因为程序已经提前了20秒。 有人知道如何显示弹出窗口并直接显示输出吗如何在VB.NET中减少输出框中的延迟？,vb.net,performance,textbox,delay,Vb.net,Performance,Textbox,Delay,这个想法是弹出一个新窗口，在那里你可以看到正在发生的事情。问题是：在弹出窗口中显示任何内容之前有20秒的延迟。我可以验证这一点，因为在控制台输出中，我可以直接看到发生了什么。它从弹出窗口的开头开始，弹出窗口在显示所有记录之前消失，因为程序已经提前了20秒。 有人知道如何显示弹出窗口并直接显示输出吗 If DgvObj.CheckRecords(100, 1) = 1 Then Dim dialog As New OutputBox("archive") With {
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应用程序中执行某些操作时，例如单击一个按钮，按钮单击处理程序中的代码开始计算Pi到万亿位小数等，您会阻止处理所有UI更新的线程返回到其保持UI活动和响应的工作。这意味着在工作进行时，应用程序中的显示会出现挂起的情况——这是一个常见的问题，可能会有成千上万的问题 答案总是一样的，而且非常简单；不要让处理按钮单击事件的线程花费很长时间来执行任何操作。小于50毫秒通常是可以的。任何耗时超过50毫秒的操作，都不要在处理事件处理程序的同一线程上执行 有很多方法可以解决这个问题，最简单和最糟糕的方法就是定期告诉你关注的UI线程去处理所有挂起的UI更新；在设置文本框后插入
Application.DoEvents（）*使FormArchiveren异步可能很简单，也可能更复杂，但要提供任何明智的建议，我们需要了解它的定义（以及它调用的其他任何东西也是您程序的一部分。在最简单的情况下，它将切换到使用它已经调用的同步方法的现有异步版本。如果它自己做了很多同步工作，而没有现有的异步版本，那么设置任务并自己运行它们将是“更复杂的一点”位当你在windows应用程序中执行某项操作时，比如你单击一个按钮，按钮内的代码单击处理程序开始计算Pi到万亿位小数等，你会阻止处理所有UI更新的线程返回到其保持UI活动和响应的工作中。这意味着应用程序中的显示似乎挂起在工作进行的过程中，这是一个常见的问题，可能会有成千上万的问题 答案总是一样的，而且非常简单；不要让处理按钮单击事件的线程花费很长时间来执行任何操作。通常小于50毫秒是可以的。任何需要超过50毫秒的操作，都不要在处理事件处理程序的同一线程上执行 解决这一问题的方法有很多，最简单和最糟糕的方法就是定期告诉用户界面线程（您已注意到该线程）去处理所有挂起的用户界面更新；在设置文本框后插入
Application.DoEvents（）*使FormArchiveren异步可能很简单，也可能更复杂，但要提供任何明智的建议，我们需要了解它的定义（以及它调用的其他任何东西也是您程序的一部分。在最简单的情况下，它将切换到使用它已经调用的同步方法的现有异步版本。如果它自己做了很多同步工作，而没有现有的异步版本，那么设置任务并自己运行它们将是“更复杂的一点”bit您可以使用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