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

[金蝶高级实施顾问]

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

往高手帮忙解决

[金蝶高级实施顾问]

如何处理能不能请大家写的清楚一些呀

[金蝶高级实施顾问]

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

[金蝶高级实施顾问]

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

[starsoulxp]

关注

[金蝶高级实施顾问]

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

说白了就是要实现这个功能

[yk84]

嗯.百分贴,我不会,蹭下分

[金蝶高级实施顾问]

没人帮忙呀。。。。

5555

：（

[哇呜]

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

[金蝶高级实施顾问]

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

[哇呜]

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

[123BMW666]

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

[jam021]

关注,帮你顶一下

[rainstormmaster]

在Sub Main中进行处理

[哇呜]

在启动窗体中，你先
Call Load(主窗体)
然后再
Call Show(主窗体)

在主窗体的Form_Load中，尽量将与界面显示相关的东西放在函数的尾部，也许效果会好一些。

[金蝶高级实施顾问]

还是没有解决呀.....有哪位高手能指点一下的呀???

[金蝶高级实施顾问]

没人帮忙解释的详细一些么??

[ryuginka]

我是这样做的,做个SPLASH窗体,自己写程序,用TIMER控件控制滚动条,
程序启动时候先启动这个窗体,然后在滚动条结束后显示主窗体

//
只能实现一个效果,不会同步的

Option Explicit
Dim i As Integer

Private Sub Form_Load()
i = 0
End Sub

Private 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

[金蝶高级实施顾问]

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

[金蝶高级实施顾问]

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