VB.net ApplicationFramework 加 SplashScreen：InvalidOperationException

Question

我最近将我的应用程序从使用自定义 SplashScreen（它只是一个带有计时器的表单加载主表单并自行关闭）更改为应用程序框架。

这就是我所做的：

• 创建一个新的 SplashScreenForm，显示应用程序版本等。
• 在以下位置选择该表单：我的项目 ->应用-> SplashScreen
• 将长时间运行的初始化代码从主窗体的构造函数移动到 ApplicationEvents 启动事件

这完全符合我的要求。 SplashScreen 首先出现，然后启动事件触发并开始工作。 SplashScreen 关闭并显示实际的主窗体。

到目前为止，一切都很好。但我们的客户有时会在启动过程中遇到这种令人讨厌的异常：

System.InvalidOperationException: Invoke oder BeginInvoke kann für ein Steuerelement erst aufgerufen werden, wenn das Fensterhandle erstellt wurde.
   bei System.Windows.Forms.Control.WaitForWaitHandle(WaitHandle waitHandle)
   bei System.Windows.Forms.Control.MarshaledInvoke(Control caller, Delegate method, Object[] args, Boolean synchronous)
   bei System.Windows.Forms.Control.Invoke(Delegate method, Object[] args)
   bei System.Windows.Forms.Control.Invoke(Delegate method)
   bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.HideSplashScreen()
   bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.MainFormLoadingDone(Object sender, EventArgs e)
   bei System.EventHandler.Invoke(Object sender, EventArgs e)
   bei System.Windows.Forms.Form.OnLoad(EventArgs e)
   bei System.Windows.Forms.Form.OnCreateControl()
   bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   bei System.Windows.Forms.Control.CreateControl()
   bei System.Windows.Forms.Control.WmShowWindow(Message& m)
   bei System.Windows.Forms.Control.WndProc(Message& m)
   bei System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   bei System.Windows.Forms.Form.WmShowWindow(Message& m)
   bei System.Windows.Forms.Form.WndProc(Message& m)
   bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

在 HideSplashScreen() 过程中似乎出现错误，但问题是整个堆栈超出了我的控制范围，因此我无法捕获此异常。

有什么建议吗？

Answer 1

将其放入您的启动画面中。如果有一些组件，该子组件可能已在 Designer.vb 文件中声明。只需将其内容移至源代码并插入第一行即可。

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then My.Application.SplashScreen = Nothing
    MyBase.Dispose(disposing)
End Sub

我已经进行了深入分析，包括框架程序集的反编译，这应该可以解决问题。详细的解释会更长的故事。

我无法在自己的计算机上重现此问题，但在各种客户端计算机上都会出现错误。即使是恶意调用，似乎也无法重现。没有与硬件或软件相关的条件来模拟该问题，但当事件循环消息延迟并且工作线程在错误的时刻切换时，它通常发生在 CPU 使用率低或高的 PC 上。

Answer 2

1. 您是否能够重现该问题（即区分发生和不发生问题的某些场景
2. 您在 MyApplication 类中处理什么事件？
3. 尝试在该类中添加以下处理程序，也许是异常将在这里捕获，它将为您提供有关堆栈的更多信息
4. 当您到达处理程序时，递归检查是否有 InnerException 并确定您看到的错误是否确实是源错误，或者只是一个错误重新抛出。
5. 禁用“仅我的代码”（阅读this 了解详细信息），您也许能够追踪问题的根源

HTH

---

Private Sub MyApplication_UnhandledException(
    ByVal sender As Object, 
    ByVal e As ApplicationServices.UnhandledExceptionEventArgs) _
       Handles Me.UnhandledException
    Stop
End Sub

Answer 3

这是我的解决方案。我最终只是吞下了 UnhandledException 事件中的任何 InvalidOperationException ，直到 SplashScreen 消失。

为此，我向 MyApplication 类添加了一个属性 MainFormLoadingComplete，该属性在主窗体的 Shown 事件中设置为 true（闪屏一直保留到处理 Form_Load 事件为止）。

我还发现我必须在 OnInitialize() 之前设置 MinimumSplashScreenDisplayTime 才能生效。希望这有助于首先避免异常。但由于这个异常是完全随机的，我的

SplashScreen 代码：

Public Class SplashScreen

    Private Sub SplashScreen_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        ' Simulate InvalidOperationException
        Throw New InvalidOperationException
    End Sub

End Class

Form1 代码：

Public Class Form1

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        My.MyApplication.MainFormLoadingComplete = True
    End Sub

End Class

MyApplication 代码：

Partial Friend Class MyApplication

    Public Shared Property MainFormLoadingComplete As Boolean

    Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
        ' MinimumSplashScreenDisplayTime has to be set before OnInitialize to be effective
        MinimumSplashScreenDisplayTime = 3000 
        Return MyBase.OnInitialize(commandLineArgs)
    End Function

    Private Sub MyApplication_Startup( _
        ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
        ' Simulate application init process
        System.Threading.Thread.Sleep(5000)
    End Sub

    Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException

        ' Swallow InvalidOperationException if the MainForm has not been shown
        If MainFormLoadingComplete = False AndAlso IsCausedByHideSplashScreen(e.Exception) Then
            ' Logging stuff...

            ' Prevent application exit
            e.ExitApplication = False
        End If

    End Sub

    Private Function IsCausedByHideSplashScreen(ByVal ex As Exception) As Boolean
        If ex.GetType Is GetType(InvalidOperationException) Then
            Return New StackTrace(ex).GetFrames().Count(Function(x) x.GetMethod().Name = "HideSplashScreen") > 0
        Else
            Return False
        End If
    End Function

End Class

Answer 4

刚刚遇到这个问题，我们使用相同的技术遇到了完全相同的问题。

我将尝试您的解决方案，但我只是想让您知道如何重现它：

我们的支持人员在这方面花费了大量时间，最终将其范围缩小到仅在 Windows 7 中发生，并且仅在 Windows 之后发生已经从开机启动了。

如果您重新启动 Windows，然后立即启动使用此启动屏幕技术的应用程序，则错误几乎总是会发生。

如果您重新启动 Windows，等待几分钟然后启动您的应用程序，您将永远不会看到该错误。

我通过在主窗体的加载事件底部放置 sleep(400) 来解决这个问题，但是有些人仍然看到错误，我将尝试您的解决方案。