这样的启动效果如何实现?

Question

首先出现logo窗口: 在此窗口上加载一些信息(像photoshop),比如  正在联接数据库.....等
需要的信息加载完后,现现登录窗口..
然后进入主界面!!

Answer 1

简单点就放个timer控件，时间到unload

Answer 2

......
建个模块和Main过程
这么写
Sub Main
    form1.show '显示Logo窗口
    load form2 '加载其它窗口
    load form3
    ....       '及其其它操作
    load frmMain
    unload form1 '关闭 logo 窗口
    frmMain.show 1 '显示主界面
End Sub

Answer 3

呵呵，同意 ljhdi 的说法。 我3年前就这样做了

Answer 4

在此窗口上加载一些信息(像photoshop),比如  正在联接数据库.....等这个如何做呢?

Answer 5

晕倒，用刚才的方法，在 form1(logo窗口) 上建一个标签 lblLoadSub Main
    form1.show '显示Logo窗口
    load form2 '加载其它窗口
    form1.lblLoad.caption = "加载 Form2" '显示加载信息
    load form3
    form1.lblLoad.caption = "加载 Form3"
    ....       '及其其它操作
    form1.lblLoad.caption = '......"
    load frmMain
    form1.lblLoad.caption = "加载主界面"
    unload form1 '关闭 logo 窗口
    frmMain.show 1 '显示主界面
End Sub

Answer 6

szmickylee(笨老鼠) 老前辈哦， 我刚用VB还不到四个月！

Answer 7

想出面加载信息可以在加载页面控制加载位置的显示内容比如From1在读取数据库在读取的过程中，可以让LOGO窗口显示读取进行等

Answer 8

图片上放一个透明的LABEL来显示进度.label.caption = "操作1"
doevents
'在这里执行实际的操作label.caption = "操作2"
doevents
'在这里执行实际的操作label.caption = "操作3"
doevents
'在这里执行实际的操作//DOEVENTS一定不能少,否则系统忙显示不出来!!

Answer 9

frmlogo.show
frmlogo.label1.caption="提示1"
doevents....frmlogo.label1.caption="提示2"
doevents
....unload frmlogofrmlogin.show