如何制作类似Photoshop使用时的程序加载窗口？

和进度条原理应该是差不多的吧？
需要在主窗口前弹出一新窗口显示当前加载进度才对？但无法实现进度条与现实进度的一致性。往高手帮忙解决

解决方案 »

  1.   

    在Sub Main中显示加载窗口，加载完了再显示主程序界面，可以吗？
      

  2.   

    主要是加载的窗口里需要运行一些很消耗系统资源的代码。需要很长的时间，但，把代码放到FORM里则窗体不显示了。放到别的地方还不能自动运行
      

  3.   

    使用DoEvent可以吗？每次加载完一项之后就刷新进度条再调用DoEvent。如果是个循环，还可以将DoEvent放在循环体里面。
      

  4.   

    可以做一封面窗体，先 加载封面窗体，然后在加载你的主窗口。主窗口加载完毕，UNLOAD封面窗体。  这样做还可以在封面窗体中显示一些动态的提示信息。
      

  5.   

    to:yinmingxing(把酒临风) 
    不好用的。我以前也想过这个办法。但。调用窗体后，总是被主窗体给挡住了。无法获得热点啊。
      

  6.   

    我的主窗体是MDI窗体。无法加载数据库控件的。
      

  7.   

    不知道大家有没有用过PHOTOSHOP，开始载入的时候，出现一borderstyle=0的窗体，然后，在窗体某处显示系统加载字体列表，系统加载XX控件的字样。说白了就是要实现这个功能
      

  8.   

    在启动窗体中，你先
    Call Load(主窗体)
    然后再
    Call Show(主窗体)在主窗体的Form_Load中，尽量将与界面显示相关的东西放在函数的尾部，也许效果会好一些。
      

  9.   

    我是这样做的,做个SPLASH窗体,自己写程序,用TIMER控件控制滚动条,
    程序启动时候先启动这个窗体,然后在滚动条结束后显示主窗体//
    只能实现一个效果,不会同步的Option Explicit
    Dim i As IntegerPrivate Sub Form_Load()
      i = 0
    End SubPrivate Sub Timer1_Timer()
        Unload Me
        MDI_LKSY.Show
    End Sub
    Private Sub Timer2_Timer()
        If i <= 10 Then
           Prg.Value = i * 10  'prg是滚动条控件
           i = i + 1
        End If
    End Sub
      

  10.   

    Timer1和Timer2的默认时间是多少?？
      

  11.   

    TO:ryuginka(除了我谁敢用真名：刘银华) 
    Timer1和Timer2的默认时间是多少?？