为什么我的程序退出后在任务管理器中还示正在执行？

Question

如上，是不是有些东西还没卸掉？

Answer 1

如果不知道哪些东西没有释放,就
Private Sub Form_Unload(Cancel As Integer)
end
End Sub

Answer 2

多半是只 unload 了 form 而没有用 end 语句结束整个程序！

Answer 3

嘿嘿，我用了End也是没用

Answer 4

unload 时用end 可以结束

Answer 5

搞定了
原来是其它地方出了错误
我一条语句一条语句查，发现把那一句设为注释后一切都OK了，根本用不着写END或是在UnLoad事件中动作

Answer 6

建议退出时单步调试看看是否执行了End

Answer 7

肯定是有东西没有释放
在推出程序中用
end
比如：
Private Sub Command1_Click() ' 退出按钮
If MsgBox("确定要退出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then
    Cancel = True
Else
    End
End If
End Sub
或则
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("确定要退出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then
    Cancel = True
Else
    End
End If
End Sub

Answer 8

直接end。或者遍历所有窗体，unload