[100分全部送]Unload语句不简单

[xgv245346]

先看代码：
Private Sub Form_Load()
Dim iA as integer
iA=8
if iA>0 then
unload form1
load form2
end if
msgbox "我就是要说"，16,"你拿我没折"
End sub

大家都看见了,msbbox语句无论如何都会被执行,为什么?
请教各位,怎么才能在一个语句内结束当前窗体(或者应用程序),载入一个新窗体?
对了,上次午夜逛街阁下给我的API是不是解决这个问题的?

[flyingZFX]

Private Sub Form_Load()
Dim iA as integer
iA=8
if iA>0 then
unload form1
load form2
exit sub
end if
msgbox "我就是要说"，16,"你拿我没折"
End sub

[flyingZFX]

呵呵，看来，你还是不太明白，什么是程序呀、

[flyingZFX]

程序，只会按照给它规定好的顺序去执行，

[yangao]

虽然用Unload卸载本窗体
但执行过程还没有结束

在load form2后加上Exit Sub后面的就不执行了

[xgv245346]

没办法 我要根据条件来调用我的窗体

[xgv245346]

没办法 我要根据条件来调用我的窗体

[ljhdi]

少了exit sub
楼主不容易呀，申请这么多帐号

[xgv245346]

谢谢 问题解决

[xgv245346]

谢谢 问题解决

[tztz520]

你的意思是不是这样呀

Private Sub Form_Load()
Dim iA as integer
iA=8
if iA>0 then
unload form1
load form2
else
msgbox "我就是要说"，16,"你拿我没折"
end if
End sub