如何创建闪屏?

crack007 2003-05-07 03:13:27
要求在主窗体(FrmMain)初始化过程中出现一个闪屏(frmSplash),主窗体初始化完毕显示出来前闪屏关闭,然后主窗体显现。

哪位能给个例子,不胜感激。谢谢!
...全文
10 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
crack007 2003-05-08
怎么回事?结账不能给分?郁闷!
回复
xayzmb 2003-05-07
用不着那么麻繁
当你用SHOW的时候
程序会调用被SHOW的窗体的LOAD事件
只有当被SHOW窗体的LOAD运行结束后
才会运行SHOW下面的代码.
回复
flyhot 2003-05-07
学习!
回复
lihonggen0 2003-05-07
Public fMainForm As frmMain


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


fMainForm.Show
End Sub
回复
xayzmb 2003-05-07

今天火气很大哦
.....
回复
xayzmb 2003-05-07
只有试过,才能说它的长短...
本来这么简单的事
还要到网上找别人做
真是......
回复
fishzone 2003-05-07
你可以用向导创建一个带 splash 的工程。
参照 上面有详细的代码。
回复
xayzmb 2003-05-07
要我怎么说你。
道理是一样的
不信你试试
在主程序(frmMdi)的load事件里写一个循环
看看是不是load完了以后才会unload启动窗体?????
回复
crack007 2003-05-07
这个不太符合我的要求。他只是简单的在闪屏窗体(frmSplash)上设了一个timer控件,并使间隔时间为1秒。这是他的代码:

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

也就是说,不管是主程序初始化没初始化完,一秒钟后,闪屏自动关闭。但万一我的程序初始化时间很长呢?
回复
xayzmb 2003-05-07
'有两个窗体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
回复
lihonggen0 2003-05-07

你可以看一下这个代码

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

回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-07 03:13
社区公告
暂无公告