如何实现窗口预载入?

[rosibo1]

我的from1_load里的相关数据相当庞大,需要20秒时间才能完全载入(for next).这期间,也就是完全的假死状态,20秒之后载入完成他才能显示.如何让他显示一个欢迎窗口,一直等到from1_load完成时才关闭?

Private Sub Form_Load()
frame1.visible=true
call 数据载入
frame1.visible=false
end sub

上面这样不行.换成窗口也不行,到底怎么样才能让载入的时候能显示点东西?

[truewill]

其实，VB里面是有splash window的例子的

[truewill]

新建工程 -> VB应用程序向导 -> 某一步可以打勾选展示屏幕的