Question

vb6 窗体加载问题 急

vb6 我写了一个窗体frmmain，但他需要加载的东西太多，所以加载（form_load）需要3-4秒，所以我就加了一个提示等待的窗体（frmload），用于在frmmain加载时显示，
frmmain的代码是
Private Sub Form_Load()
frmload.show
frmload.label1.caption="请等待，加载中！"
......
frmload.hide
end sub
之前都还正常，都是frmmain加载时（还没显示）frmload显示出来，等frmmain加载完显示，frmload就消失。
但今天我不知道干了什么，变成了frmmain加载时，frmload不显示，反而加载完后，frmload一闪而过，上述代码基本没变过，而且我把代码恢复到之前的也无济于事，这应该咋办？
（在frmload的load事件中，只有一条move函数，使其位于屏幕正中央，没有多余代码，也没有其他事件)
我吧最后的frmload.hide去掉，发现其实frmload在frmmain加载完成兵显示后才显示出来，这是不是什么属性或限制的问题啊？

Answer 1

高度
宽度是可以被加载的
在被设为启动对象的窗体中写加载代码
比如当前的启动对象是FORM1
比如在FORM1的LOAD事件中写
Private
Sub
Form_Load()
Form2.Left
=
3600
Form2.Top
=
5210
Form2.Width
=
7510
End
Sub
Private
Sub
Form_Click()
Unload
Me
Form2.Show
End
Sub
2楼的写法显然是不对的
me.height
=
me.height*2是不能够实现的

Answer 2

frmload.show

这句代码的后面加上一条
doevents

其它的不用变

追问

果然正常了，但为什么之前（指没有提出问题之前）没有这句也是正常的呢？那你能说说我是哪里修改错了才导致的呢？等你回复呢后就设为满意答案，谢谢！

追答

由于加载了一个耗时的操作，而程序是单线程的，界面元素无法得到刷新，doevent是转交控制权给操作系统，所以显示就正常了