启动窗口的问题

fengyin520 2005-10-28 09:55:40
我的程序由于启动慢,所以就做了个启动窗口让他先启动,但我不会做,就是怎样判断我的真正要启动的窗口已经启动完了,然后我的启动窗口关掉.还有就是要在启动窗口做个启动进度条,等进度条满了,程序也启动了.谁能给个思路或简单的代码:)
...全文
89 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
kenny 2006-05-15
  • 打赏
  • 举报
回复


在各位星星大哥们后面献丑了:



程序启动窗口

主窗体启动时候需要运算很多过程,因此窗体显示出来需要很长时间,此时可新建一个启动窗口。
程序启动时候先显示启动窗口,当启动窗口自动关闭时,主窗口正好打开。

frmSplash

'放置启动画面内容。


MainModule.vb

Sub Main()

frmSplash.Show '显示启动(欢迎)窗口
frmSplash.Refresh

Set fMainForm = New MainFrm
Load fMainForm '加载主窗口并开始运行相关操作

Unload frmSplash '关闭启动窗口
fMainForm.Show '主窗口正式显示

End Sub


修改启动设定

Project - Properties...
设定:Startup Object: Sub Main





faysky2 2005-10-28
  • 打赏
  • 举报
回复
就楼上的方法
supergreenbean 2005-10-28
  • 打赏
  • 举报
回复
在你主窗体的Form_Load事件里写

Private Sub Form_Load()
frmSplash.Show

'做你的事情

Unload frmSplash
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧