关于vb退出程序的问题

end是vb整个应用程序，所有代码停止，窗口卸载

exit是模块，可以是循环体，函数知搏禅，过程 比如："exit sub"vb中银数还有窗体退出还有，unload xx, me.unload等 如果只有一个窗体也相当于退出程搭尘序

试试这个，Form_Unload的那个删了。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim strExit As String

If UnloadMode <>vbAppWindows Then

strExit = "您确定要停止运行吗？"

If vbNo = MsgBox(strExit, vbQuestion Or vbYesNo, "") Then

Cancel = True

Exit Sub

End If

End If

End

End Sub

QueryUnload 事件

当一个子窗体或一个 Form 对象关闭时，在那个窗体中的 QueryUnload 事件先于该窗体的 Unload 事件发生。

Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)

cancel 一个整数。将此参数设定为除 0 以外的任何值，可在所有已装载的窗体中停止 QueryUnload 事件，并阻止该窗体和盯碰应用程序的关闭。

unloadmode 一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。

常数是在对象浏览器有。

说明

此事件的典型用法是在关闭一个应用程序之前用来确保包含在该应用程序中的窗体中没有未完成的任务。例如，如果还未保存某一窗体中的新数据，则应用程序会提示保存该数据。

当一个应用程序关闭时，可使用 QueryUnload 或 Unload 事件过程将 Cancel 属性设置为 True 来阻止关闭乱则指过程。但是，QueryUnload 事件是在任一哗配个卸载之前在所有窗体中发生，而 Unload 是在每个窗体卸载时发生。

可以参考下面的两种参考方法旅岩升：

第一种：用cmd中的taskkill结束程序

shell ”cmd/c taskkill /f /im 你的进程名.exe“

第二种：（WIN7）以下的电脑可以使用，用ntsd结束程序枣亩

shell ”cmd/c ntsd -c q -pn 用户的进程名.exe“

扩展资料：

参考语句

For Each...Next 语句： 对于数组或集合中的每一个元素，重复一组语句。 

FormatDateTime 函数： 返回格式化为日期或时间的表达式。

FormatNumber 函数： 返回格式化为数的表达式。

Function 语句： 声明形成 Function 过程体的名称、参数拆老和代码。

GetObject 函数： 从文件返回对“自动”对象的访问。

参考资料来源：百度百科-Visual Basic

---