窗体启动问题

Question

模块中有如下的代码：Sub main()
    form1.Show
      Sleep (5000)
      Unload form1
    form2.Show
End Sub启动时为什么form1不显示出来呢？

Answer 1

你把unload form1去掉啊。你都unload 了怎么显示Option ExplicitSub main()
    Form1.Show
     ' Sleep (5000)
     ' Unload Form1
    Form2.Show
End Sub

Answer 2

Sleep (5000) '这句能保证程序暂停吗？如果不能，建议在 form1 上放 timer 控件。

Answer 3

看看,可以实现,最好在form2中卸载form1
Sub main()
    form1.Show
    doevents
      Sleep (5000)
      Unload form1
    form2.Show
End Sub

Answer 4

这样写:
sub main()
   form1.Show
   doevents
   load form2
   '在此处理或延时均可
   uload form1
   form2.show
end sub

Answer 5

我的意思是：form1作为一个“展示窗体”，在它显示后执行一段代码，当执行完毕后，在把该窗体卸掉，然后在加载form2

Answer 6

象你上面那么写那段代码可以执行吗？
你怎么样代码执行？你要“它显示后执行一段代码，当执行完毕后，在把该窗体卸掉，”可以在代码运行完以后
Unload form1