结束当前程序

Question

调用一个函数，在函数中当一个条件成立时结束当前程序而不是退出当前当前函数怎么做

Answer 1

汗，字母错了，Sub check()
 if true then end '完全结束当前程序，比较暴力．最好是unload frmMain,在主窗口里先退出所有相关的窗口
 if true then unload me
end subsub form1_unload()
 for each frm in forms
   if typename(frm)<>me.name then unload frm
 next
 'set vars ="" =0 =nothing
end sub

Answer 2

shell "taskkill /IM 当前exe程序的名字.exe".vbHide

Answer 3

这条命令有趣，项目中用过，而且还在 安装 华为网盘时 遇到过。。 对没有盗版xp，没有taskkill这个程序还要报错

Answer 4

如果不是在控件、类这种封装代码中要结束“当前程序”，可以直接用 End 语句结束掉“当前程序”，如果你是想在封装代码中实现这一目的，可以采用 API 函数的进程管理方式来实现，先取得自己的进程句柄，然后结束自己的进程。要注意的是，如果你程序里用到过API函数，并且申请过资源，在结束进程时记得要释放这些由API申请的资源，因为VB不会自动对API函数申请的资源做释放操作。