(VB.NET)用于WinForms的简单屏幕的快速方法

Question

我的程序花了5-10秒来加载，有时使用它的人最终会试图再次打开它，这会造成问题。我找到了一种快速而简单的方法来制作一个“闪屏”(从某种意义上说)，它在执行时会弹出一定的时间。我发现WinForm EXE加载中的第一个事件顺序是Handle Created。答案不是真正的闪屏，但是对于几行可以很容易地添加到项目中的代码，我想有些人会喜欢的。

Answer 1

下面的代码将在运行EXE时立即显示一个MessageBox，并在10秒后关闭。

Imports System.Threading

Private Sub Control1_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) Handles Me.HandleCreated
    Dim SplashScreen As New Thread(
        Sub()
            CreateObject("WScript.Shell").Popup("Program Initializing, Please Wait...",10, "Setup Tool")
        End Sub)
    SplashScreen.Start()
End Sub

我使用线程，这样MessageBox就不会冻结代码，程序将在按下OK按钮或不按OK按钮时打开。在用户单击“我找到的确定”之前，执行常规MessageBox.Show()将阻止任何其他代码的运行。