怎样用代码使vb程序正常退出？

[skyjiajia]

怎样用代码使vb程序正常退出？

[zsgzsgzsg]

end

[minajo21]

unload 所有的窗体、对象
end

[lihonggen0]

unload me 退出当前屏幕

end 结束程序

[goldfish9]

上面的都说了

[叶帆]

for i=0 to forms.Count
unload forms(i)
next i
end

[richardbao]

就是 unload 所有的窗体啊，就像楼上那位说的一样。最好不要用 End，那个不是模块化所推荐的，而且有时好像会出现非法错误。

[HanZhu1]

end

[sxs69]

for i=0 to forms.Count-1
unload forms(0)
next i

[chutianqi]

其实直接用END就可以退出整个程序了~~

[jiaxin1029]

我同意yefanqiu(叶帆)
但是 END 会出错吗？ 为什么，我怎么没遇到过......
请教！！

[Sean918]

有时候 END 强行结束程序会出现 内存错误

这个时候建议使用下面代码退出程序:


Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

TerminateProcess GetCurrentProcess, 0

[Daniel0318]

楼上果然是高人

[裸男]

up

[goldfish9]

我也遇到了这方面的问题。
我按了右上角窗体的关闭按钮，可程序还要运行。不知道是什么原因

[叶帆]

当有多个窗体的时候，这种情况很容易出现。
用mdi窗体较好一些

[shortppsy]

private sub form_load
unload
end sub