vb程序点击右上角叉叉后，发现系统任务管理器里还是在，而且会一直都在。要如何彻底退出？

Question

本帖最后由 xinrensheng 于 2012-02-01 16:16:08 编辑

Answer 1

顺序有点问题：
Private Sub Form11_Unload(Cancel As Integer)
  Unload Form1
  Unload Me
  End
End Sub
一般来说，可以不用End，跟Unload在一起，容易引起程序崩溃.

Answer 2

谢谢!我加了个end是因为原先只有  Unload Form1
  Unload Me的时候也是不行的.
加不加end都不行.卸载对象我好象没什么, FileSystemObject这种算吗?
另外我有些循环语句,据说循环如果没执行完的话会不能释放退出,但是我都是执行完毕了的,退不出.我以前遇到过需要等段时间退出的,但是现在碰到这个是永远不退出.搞死,vb怎么这样呢?end都结束不了,那叫什么end啊?晕.能不能直接kill自己进程的?我干脆直接kill进程得了.

Answer 3

可以对有疑问的对象比如FILESYSTEMOBJECT 控件窗体什么的，用
dim o as object
  for each o in objects ...
    set o =Nothing   
  next 
试试。

Answer 4

在自己的窗口 Unload()事件中还 Unload Me ，不是多此一举么……
我建一个简单的工程来试过，不用 End 也能正常结束。
（有没有那个 Unload Me，是一样的；有没有 End，也是一样的；
　　先Unload Me再Unload 另一个，或先Unload 另一个再Unload Me，也是一样的……）
楼主的程序不能正常结束，应该是别的原因造成。

Answer 5

Private Sub Form11_Unload(Cancel As Integer)
 Shell "TASKKILL /IM myself.exe"
End Sub