VB6自定义消息框阻塞问题：程序退出选项功能异常求助

问题背景 #

因VB6内置MsgBox无法修改字体和区域语言，我通过表单实现了自定义消息框frmMsgBox，但在主表单退出流程中遇到矛盾：

• 若在Form_QueryUnload中设置Cancel=True：退出、取消功能正常，但重启后主表单无法卸载，初始表单新输入的数据无法在主表单生效，主表单始终显示旧结果
• 若不设置Cancel=True：退出、重启功能正常，但取消退出后主表单内容清空，功能完全失效

需求：让自定义消息框像内置MsgBox一样，调用frmMsgBox.Show后阻塞后续代码，直到用户完成选择再执行对应逻辑。

项目表单结构 #

• 初始表单：负责用户密码、数据输入
• 主表单：展示输入数据的处理结果
• frmMsgBox：自定义消息框表单

现有代码 #

主表单Form_QueryUnload事件代码 #

Private Sub Form_QueryUnload(Cancel As Integer)
    Cancel = True
    frmMsgBox.Label1.Caption = "Do you wish to 1.Exit  2.Restart 3.Cancel the exit?"
    frmMsgBox.Show
End Sub

frmMsgBox按钮点击事件代码 #

Private Sub Command1_Click() '退出程序
    '遍历卸载所有表单并释放资源
    Dim frm As Form
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next frm
    End
End Sub

Private Sub Command2_Click() '重启程序
    Unload MainForm
    Set MainForm = Nothing
    Load InitialForm
    InitialForm.Show
    frmMsgBox.Hide
End Sub

Private Sub Command3_Click() '取消退出请求
    MainForm.Show
    frmMsgBox.Hide
End Sub

解决方案 #

核心逻辑 #

让自定义消息框以模态方式阻塞代码，通过公共变量传递用户选择，动态控制主表单的卸载状态，避免Cancel固定值导致的矛盾。

步骤1：改造frmMsgBox #

在frmMsgBox的通用声明区添加公共变量，用于存储用户选择：

Public UserChoice As Integer '1=退出，2=重启，3=取消

修改按钮点击事件，赋值后卸载消息框：

Private Sub Command1_Click() '退出程序
    UserChoice = 1
    Unload Me
End Sub

Private Sub Command2_Click() '重启程序
    UserChoice = 2
    Unload Me
End Sub

Private Sub Command3_Click() '取消退出请求
    UserChoice = 3
    Unload Me
End Sub

步骤2：修改主表单Form_QueryUnload事件 #

以模态方式显示消息框，根据用户选择动态设置Cancel值：

Private Sub Form_QueryUnload(Cancel As Integer)
    frmMsgBox.Label1.Caption = "Do you wish to 1.Exit  2.Restart 3.Cancel the exit?"
    frmMsgBox.Show vbModal '模态显示，阻塞代码直到用户操作
    
    Select Case frmMsgBox.UserChoice
        Case 1, 2 '退出/重启：允许主表单卸载
            Cancel = False
        Case 3 '取消退出：阻止主表单卸载
            Cancel = True
    End Select
End Sub

步骤3：在主表单Form_Unload事件中处理全局操作 #

当Cancel=False时，主表单会触发Form_Unload，在这里执行退出或重启逻辑：

Private Sub Form_Unload(Cancel As Integer)
    Select Case frmMsgBox.UserChoice
        Case 1 '退出程序
            Dim frm As Form
            For Each frm In Forms
                Unload frm
                Set frm = Nothing
            Next frm
            End
        Case 2 '重启程序
            Load InitialForm
            InitialForm.Show
    End Select
End Sub

方案优势 #

• 模态窗口Show vbModal实现了和内置MsgBox一致的阻塞效果，必须等用户操作后才继续执行后续代码
• 通过公共变量传递选择，让主表单的卸载逻辑动态可控，解决了Cancel固定值的矛盾
• 全局操作（退出、重启）移到Form_Unload执行，确保主表单正常卸载后再处理，避免旧实例残留导致的旧数据问题

内容的提问来源于stack exchange，提问作者Astro chathuranga