程序中有几个窗体，怎么使其中一个窗体关闭，程序关闭了

[ningweidong]

我的程序有几个窗体，其中一个是主窗体。
我希望这个主窗体一旦关闭，整个程序都退出了。
但是我现在做的，我认为是主窗体的窗口关闭后，程序并没有退出。
应该怎么做？在那个窗口的unload事件中调用end吗？

[倒大霉的上帝]

[Quote=引用楼主 ningweidong 的回复:]

应该怎么做？在那个窗口的unload事件中调用end吗？
[/Quote]
可行

[xiaojjaxiaojj]

学到东西了，谢谢

[shdbzhwxb]

我现在用的是VB2005，在2005中没有了UNLOAD事件，代之以FormClosing以及FormClosed 两个事件，不过我认为他们的作用是类似的。通常在FormClosing中以及FormClosed中做一些收尾工作,比如释放句柄，以及一些全局对象，否则这两个事件你完全可以不管他。要想关闭表单，只需要在某处（当然不是在FormClosing以及FormClosed 中）调用me.close方法即可。如果实在主表单中调用，应该在关闭主表单后，整个程序也就关闭了，不会存在只关闭了主表单，而程序还在运行的情况，除非你把应用程序的启动对象设置为main 函数（在此函数中，除了调用主表单外，还安排了其他功能!)，而不是你所说的主表单.

[游子]

end

[sonic_andy]

private sub form_unload()
    dim f as form
    for each f in forms
        if not f is me then
            call unload(f)
        end if
    next
end sub

所有窗体关闭后,且所有正在执行的代码执行完毕后,程序就会退出.

[赵4老师]

[Quote=引用 5 楼 sonic_andy 的回复:]
VB code
private sub form_unload()
dim f as form
for each f in forms
if not f is me then
call unload(f)
end if
next
end sub


所有窗体关闭后,且所有正在执行的代码执行完毕后,……
[/Quote]
这个方法比end优雅。