我的启动画面为什么不出现

[fengyin520]

下面是代码,运行时等待mdifrmMain主窗体出现的时候,启动画面一直没有出现,然后就直接出了主窗体,是哪里的问题呢,还是我写错了


Private Sub MDIForm_Load()

frmSplash.Show'启动画面
MDIfrmMain.Visible = False
Call MDIfrmMainInit
frmBiaoGe.Show'此为子窗体
Unload frmSplash
MDIfrmMain.Visible = True

End Sub

[BlueBird2005]

为什么有这句:Unload frmSplash
这样不就白show了吗?

[射天狼]

Private Sub MDIForm_Load()

frmSplash.Show'启动画面
Doevents '加上此句
MDIfrmMain.Visible = False
Call MDIfrmMainInit
frmBiaoGe.Show'此为子窗体
Unload frmSplash
MDIfrmMain.Visible = True

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/

[fengyin520]

学习了以下vb向导生成的带启动画面的程序,搞定了下面是代码
Sub Main()
Call InitAppStyle
frmSplash.Show
frmSplash.Refresh
Unload frmSplash
MDIfrmMain.Show
End Sub

[fengyin520]

用cuizm(射天狼 http://www.j2soft.cn/)的代码也成功了，谢谢