使用Splashscreen VB.NET加载另一个表单

Question

所以我正在开发一款游戏而且它在某些系统上有点沉重,所以这就是我想在游戏打开时做的事情(伪代码):

Show Splashscreen
Load GameForm
When GameForm Is Completely Loaded
Splashscreen Close
Show GameForm

在实际的VB代码中如何完成？

Answer 1

打开Visual Studio>新的VB.Net Winform项目

右键单击解决方案>添加新项> SplashScreen

双击Form1并在Form1_Load事件中:

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Me.Visible = False

Dim s = New SplashScreen1()
s.Show()
'Do processing here or thread.sleep to illustrate the concept
System.Threading.Thread.Sleep(5000)
s.Close()

Me.Visible = True

End Sub