问题出在哪里？该如何关闭时间控件？

Question

我的程序中出了这样1个问题。就是在时间控件调用的函数未执行结束时，如要关闭窗体，并不能彻底的把这个程序关闭掉。表面上程序 是关闭了，但是在CTRL+ALT+DEL的管理器中仍能看到该程序。 为了清楚说明我的意思，我写个简单的例子（源程序太麻烦）,只是表达我程序的大概意思及出现的问题：sub formload()    timer1.inveral=50    timer.enable=trueend subsub timer_time()   '时间控件的过程头好象是这么写的吧！       beidiaoyonghanshu(50000)       timer1.enable=falseend subsub BeiDiaoYongHanShu(byval Maxnum as integer)       dim sum as long       是否会溢出 暂且不说               for i=1 to Maxnum   <--------只要是一个需要执行10秒以上的循环即可                    Doevents                     sum=i*sum                next i        form1.text1.text=sum    赋值是否有效 暂且不说end sub在BeiDiaoYongHanShu没有执行完毕的时候关闭Form，表面上看是关闭了，但在进程管理器中可以发现程序其实还 未关闭，资源也没有释放出来。如果在BeiDiaoYongHanShu执行完毕后，关闭程序则可以彻底的把程序关闭掉。 我想知道 这是为什么！该如何彻底的关闭程序！！！！！！

Answer 1

用end结束吧.Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Answer 2

霸道一点用end应该可以的。
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Answer 3

Private Sub Form_Activate()
    Timer1.Interval = 3000
    Timer1.Enabled = True（打开时间控键）
End Sub                           设置时间为3秒   启动时间控键Private Sub Timer1_Timer()
 Timer1.Enabled = False（关闭时间控键）
   
End Sub

Answer 4

end应该可以
不过没有结束的原因应该是for里的那个doevents造成的。
效果不太坏的话最好是不要使用。还有一个方法就是在for里加一个退出标志private stop_flag as booleansub form_unload()
  stop_flag=true
end sub
sub xxx()
for ....
 doevents
 if stop_flag then exit for '(exit sub看你需要了~)
next
end sub

Answer 5

霸道一点用end应该可以的。
Private Sub Form_Unload(Cancel As Integer)
End
End Sub中的END 是什么意思？他的功能是什么啊？我写的程序中不能用。做了个简单的实验用END后，程序就好象进入了死循环（98系统）。什么都不动了。

Answer 6

end相当于你打开一个软件，用END后，软件就退出了，即关闭了改软件！
你的问题象publicsub() 那样解决应该可以吧！可以吗？你试试！

Answer 7

//程序就好象进入了死循环
用了End后程序就完全退出了，死循环应当是的Time处理出问题了，并没有执行End

Answer 8

这种情况完全有可能出现，窗体上的关闭按钮有时在设计时运行程序都无法关闭程序，这应该是软件所正在运行的一个进程没有关闭而造成的。建议你在Form_QueryUnload代码中使用timer1.Enabled=False。如果你已知道这个时钟内要有复杂的代码运行，更建议你在代码中加入doevents，然后设置一个窗口级变量来控制内部循环EXIT FOR或EXIT DO或没有循环时EXIT SUB，侦测窗体卸载时通过这个变量去控制内部代码立即退出运行。