如何创建闪屏？

[crack007]

要求在主窗体(FrmMain)初始化过程中出现一个闪屏（frmSplash），主窗体初始化完毕显示出来前闪屏关闭，然后主窗体显现。

哪位能给个例子，不胜感激。谢谢！

[lihonggen0]

你可以看一下这个代码

http://www.csdn.net/cnshare/soft/16/16015.shtm

[xayzmb]

'有两个窗体frmTest(启动窗体)和frmMDI(主窗体)
'程序启动时先启动frmTest
'frmTest窗体中有一个Timer控件
'将下列代码复制到frmTest窗体中
Option Explicit
Private timT As Long

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()

If timT > 1 And timT < 8 Then
frmMDI.Show
frmMDI.ZOrder (1)
frmTest.ZOrder (0)
ElseIf timT >= 8 Then
Timer1.Enabled = False
frmMDI.ZOrder (0)
Unload Me
End If
timT = timT + 1
End Sub

[crack007]

这个不太符合我的要求。他只是简单的在闪屏窗体（frmSplash）上设了一个timer控件，并使间隔时间为1秒。这是他的代码：

Private Sub Timer1_Timer()
Timer1.Enabled = False
Me.Hide
Unload Me
FrmSendMain.Show
End Sub

也就是说，不管是主程序初始化没初始化完，一秒钟后，闪屏自动关闭。但万一我的程序初始化时间很长呢？

[xayzmb]

要我怎么说你。
道理是一样的
不信你试试
在主程序(frmMdi)的load事件里写一个循环
看看是不是load完了以后才会unload启动窗体?????

[fishzone]

你可以用向导创建一个带 splash 的工程。
参照 上面有详细的代码。

[xayzmb]

只有试过,才能说它的长短...
本来这么简单的事
还要到网上找别人做
真是......

[xayzmb]

唉
今天火气很大哦
.....

[lihonggen0]

Public fMainForm As frmMain


Sub Main()
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash


fMainForm.Show
End Sub

[flyhot]

学习！

[xayzmb]

用不着那么麻繁
当你用SHOW的时候
程序会调用被SHOW的窗体的LOAD事件
只有当被SHOW窗体的LOAD运行结束后
才会运行SHOW下面的代码.

[crack007]

怎么回事？结账不能给分？郁闷！