还有,用end语句关闭程序并不是一个很好的方法,end语句虽然可以结束程序,但并不能把窗体完全从内存中移走,造成的结果是窗体还占用着部分资源;完全释放所占资源的方法还是使用unload语句,然后使用 set form = nothing 语句。如果程序中窗体较多,可以使用下面的方法一次将所有窗体移走: sub unloadallforms( ) dim form as form for each form in forms unload form set form = nothing next form end sub 上面这个函数采用窗体对象的方法,不需要一个一个地使用unload语句,在程序结束按钮中调用它即可。
一定要注意在退出前恢复窗口函数的地址
sub unloadallforms( )
dim form as form
for each form in forms
unload form
set form = nothing
next form
end sub
上面这个函数采用窗体对象的方法,不需要一个一个地使用unload语句,在程序结束按钮中调用它即可。