0

我有一个 Windows 窗体项目，用 vb.net 2005 编写。

一切正常，只是在显示 frmMain 之前不会显示启动画面。

在项目属性中，我设置了启动画面。在 Splash screen Shown事件中，我使用设置了延迟System.Threading.Thread.Sleep(3000)

但是主 MDI 窗体只是加载，然后启动屏幕显然在它后面，因为光标显示“等待”几秒钟。

在 VS 2005 中，它曾经运行良好，显示启动画面几秒钟，然后加载主窗体。

在 VS 2008 中我还需要做些什么吗？

谢谢

4

1 回答 1

1

单击项目 --> 属性 --> 应用程序选项卡 --> (向下滚动到右下角) --> “查看应用程序事件”按钮，您应该会看到如下内容：

Namespace My

    ' The following events are available for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

    End Class

End Namespace

现在覆盖 OnInitialize() 并设置 MinimumSplashScreenDisplayTime() 如下所述：

Namespace My

    ' The following events are available for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
            ' Set the display time to 3000 milliseconds (3 seconds):
            Me.MinimumSplashScreenDisplayTime = 3000
            Return MyBase.OnInitialize(commandLineArgs)
        End Function

    End Class

End Namespace
于 2013-06-10T16:41:30.690 回答