求助

Question

   我想实现一个类似于小榕的流光那样一运行软件首先显示一副图片，过几秒之后然后软件就打开了，谁能告诉我这样的代码怎末实现啊

Answer 1

做个启动画面.1.让启动为 MAIN启动.
2.建立一个启动窗口.
3.建立一个主窗口
4.建立一个模板.
5.在模块上写入以下代码:sub Main()
  启动窗口.Show
end sub6.在启动窗口中增加一个Timer1控件.写入以下代码:private sub 启动窗口_Load()
   Timer1.Enabled = True
   Timer1.Interval = 3000 '三秒后启动主窗体
end SubPrivate Sub Timer1_Timer()
  启动窗口.Hide
  主窗口.Show
End Sub

Answer 2

用楼上的办法,但别忘记把计时器关了.它已经没用处了.
Private Sub Timer1_Timer() 
  启动窗口.Hide 
  主窗口.Show
  Timer1.Enabled = False
End Sub 

Answer 3

sub Main() 
  启动窗口.Show 
  sleep(4000)
  启动窗口.Hide 
  主窗口.Show  
end sub

Answer 4

还HIDE啥呀,直接UNLOAD ME就完了,占着内存干嘛呢

Answer 5

我的代码:
Sub Main()
    '显示欢迎窗口
    frmSplash.Show
    frmSplash.Refresh
    '程序初始化
    '注册组件
    '连接数据库
    '....
    Unload frmSplash    
    '显示主窗体
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub