在打开不加载控件的表单之前使用的启动画面

Question

我有一个表单需要一些时间来加载（需要从数据库中获取一些值）。

所以我做了一个简单的“请稍候”启动画面，在启动表单之前显示它，关闭它并显示表单：

Dim sp As New SplashScreen2
sp.Show()
Dim a = New AsignarFormacionesUsuario(p)
a.Text = "Asignar formaciones a: " + p.NomComplet
a.Show()
sp.Close()

问题是闪屏没有正确地控制：

应该是：

如果我删除我的表单的 intancing 和显示（以及关闭飞溅，因此它不会立即关闭）它会完美显示。

所以这似乎不是飞溅的问题，而是表单的实例化并没有让飞溅正确加载。

我不知道该尝试什么，看来我只需要实例来等待启动 Show() 完成。但是不应该等一下吗？

Answer 1

Dim sp As New SplashScreen2  
sp.Show()  

sp.Update() 

Dim a = New AsignarFormacionesUsuario(p)