VB.NET Form.Show 从另一个线程挂起的窗体

Question

我的网络代码调用了一系列方法。网络线程会触发一个事件。在这个我从单例类中挂钩的事件中，我将消息路由到表单级别方法，这些方法在表单加载上注册以处理他们关心的某些消息。在这些表单消息挂钩内部，我需要关闭当前表单（我能够做到），但也显示一个不同的表单（这给我带来了麻烦）。

新的表格有点显示，但它挂起/不更新。我确信这与该表单有关，因为它的 .Show() 基本上是从另一个线程（某种程度上）调用的，没有消息循环，但我不确定如何解决这个问题。收到的网络消息指示客户端计算机上要关闭和显示哪些表单。

流程可能会令人困惑，所以我会尽力解释。

登录表单将该表单内的用户定义函数附加到单例类消息列表。例如，当触发名为 LOGIN_STATUS 的消息时，我将登录表单中的函数分配给此单例类中定义的列表。

单例类中定义了网络类，该类实际上在另一个线程上运行，但这都是在类内部处理的。在私有ctor中，我订阅了该网络类的OnData事件。

当 OnData 从网络类触发到单例类时，它会将数据类型传递给它。我循环遍历函数指针列表，查看它们中是否有任何链接到 LOGIN_STATUS，如果是，则调用它们。这将调用登录表单函数。在该函数内，我需要关闭登录表单并打开大厅表单。此时，大厅表单会显示，但已挂起且未更新。

希望这是有道理的。

这一切都是在 VB.NET 中完成的，其中我有“最后一个表单关闭时关闭”设置，这就是我想要的。 VB.NET 还使管理表单变得更加容易，因为我可以只使用 formname.Show()，而不必像在 C# 中那样保留表单列表并自己管理它们，所以如果解决方案仍然可以实现这一点，那就是理想的解决方案。

Answer 1

如果您想确保所有表单都在同一线程上创建，从而在同一消息循环上创建，请使用 main from 的 Invoke 方法。 Form.Invoke 和 Form.BeginInvoke 方法使代码从表单的消息循环运行。 BeginInvoke 允许事件调用线程立即返回，而 Invoke 会阻塞事件线程，直到方法完成。这取决于您的代码对时间的敏感程度。

Private Sub OpenFormEvent(sender As Object, e As EventArgs)
    If MainForm.InvokeRequired Then
        Dim args As Object() = {sender, e}
        MainForm.BeginInvoke(New EventHandler(AddressOf OpenFormEvent), args)
    Else
        Dim SecondForm As New Form()
        SecondForm.Show()
    End If
End Sub