VB6中是否存在Form_Closing等效事件？需阻止子窗口未关闭时关闭程序

嘿，这个问题我太熟悉了！在VB6的.bas模块里并没有直接对应.NET Form_Closing的模块级事件——毕竟.bas是通用代码容器，不绑定具体窗体。不过我们可以用VB6窗体自带的QueryUnload事件来完美实现你要的“有子窗口时阻止程序关闭”的需求，这也是VB6里处理关闭拦截的标准操作。

核心实现思路 #

VB6的QueryUnload事件会在窗体（包括主窗体）关闭前触发，比Unload事件更早执行，刚好适合用来判断是否允许关闭。你只需要在主窗体的这个事件里编写逻辑，和你给的.NET示例逻辑几乎一致，只是语法稍有不同。

直接在主窗体中实现的示例代码 #

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 用你自己的hasSubWindow变量判断是否存在打开的子窗口
    If hasSubWindow Then
        MsgBox "You currently have active sub-window(s)", vbExclamation, "Notice"
        ' VB6中设置Cancel为1即可取消关闭操作
        Cancel = 1
    End If
End Sub

模块化的实现方式（如果想把逻辑放在.bas模块里） #

如果你希望把关闭检查的逻辑集中在.bas模块中（比如多个窗体需要复用），可以这样做：

首先在.bas模块里定义一个检查函数：

' 假设hasSubWindow是你在模块中维护的全局/模块级变量
Public hasSubWindow As Boolean

Public Function AllowApplicationClose() As Boolean
    AllowApplicationClose = Not hasSubWindow
    
    If Not AllowApplicationClose Then
        MsgBox "You currently have active sub-window(s)", vbExclamation, "Notice"
    End If
End Function

然后在主窗体的QueryUnload事件里调用这个函数：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 用函数返回值反向设置Cancel（函数返回False则Cancel=1，阻止关闭）
    Cancel = Not AllowApplicationClose()
End Sub

额外说明 #

• UnloadMode参数：这个参数可以告诉你窗体关闭的触发原因（比如用户点击关闭按钮、代码调用Unload、任务管理器结束进程等），如果需要针对特定场景做特殊处理，可以用这个参数判断。
• 注意变量作用域：如果hasSubWindow是在窗体中定义的，要确保模块能访问到（或者反过来），通常建议把这类状态变量放在.bas模块中定义为Public，方便全局访问。

内容的提问来源于stack exchange，提问作者Von Abanes