用户表单对卸载调用具有弹性

Question

在显示另一个之前尝试Unload Useforms，我遇到了一个奇怪的问题。
我的工作表是由大师UserForm组成的，叫UFMainMenu，可以调用别人。当主控调用用户窗体时，它会在主用户窗体代码中使用类似这样的内容进行隐藏：

Private Sub BtnSupprimerValeur_Click()
    Me.Hide
    UFSupInstanceParametre.Show
End Sub

这按预期工作，并打开UFSupInstanceParametre
在UFSupInstanceParametre 内部，如果用户关闭它，代码Unload UFSupInstanceParametre 并启动我的主人UserForm：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Unload Me
        Call mainMenu
    End If
End Sub

mainMenu 就是这个简单的子菜单：

Sub mainMenu()
    Application.ScreenUpdating = True
    
    Dim objLoop As Object
    'The following loop is just for me to see if previous userform was indeed unloaded, and if not it unloads it again
    For Each objLoop In VBA.UserForms
        If objLoop.Name <> "UFMainMenu" Then
            Unload objLoop
        End If
    Next objLoop
    
    UFMainMenu.Show
    
End Sub

问题是：
-UFSupInstanceParametre 中的Unload Me 并没有真正卸载UFSupInstanceParametre，因为它仍然出现在屏幕上。
- 在 mainMenu 的 For 循环内，当逐步运行时，我看到 UFSupInstanceParametre 没有被卸载，我确认代码然后运行 ​​Unload objLoop 行，无论如何都应该卸载它。它没有，UFSupInstanceParametre 仍在屏幕上。为了 100% 确定它没有被卸载，我尝试第二次运行 For 循环，它再次发现 UFSupInstanceParametre 仍然加载，并再次尝试使用 Unload objLoop 行卸载它，但没有成功。 -代码不会抛出错误，它只是不会卸载任何用户表单。 - 代码尝试在 mainMenu 中卸载其他用户表单后按预期启动主用户表单，但另一个用户表单仍然可见。

我不得不承认我对这个有点迷失了，我知道我只缺少一个关于 UserForms 的简单属性，但我找不到它。

有什么想法吗？

Answer 1

我无法详细解释您代码的每一个行为，但主要问题在于您通过显示主表单中断了UserForm_QueryClose 中子表单的代码。 VBA 是单线程的，在您显示表单模式的那一刻，例程的代码被中断，显示表单并执行后面的代码（例如激活触发器）。

一旦您的主窗体再次隐藏，子窗体的中断QueryClose-code 将继续。您需要知道的是，每当表单即将被销毁时都会调用 queryClose-Trigger - 如果用户按下系统关闭按钮（红色“X”按钮）或代码中的某处 @ 987654324@ 语句被执行。 （除非你设置了参数Cancel = True）。

现在，如果您在 queryClose-Trigger 中发出 Unload-statement 会发生什么？我不太清楚，但运行时似乎知道您已经处于 Unload-process 的中间并忽略了下一次尝试 - 这解释了为什么您永远不会摆脱 mainmenu-code 中的实例.

显示表单vbmodeless 会导致完全不同的行为这一事实很容易解释：显示表单的代码（仍在谈论您的queryClose-例程）继续运行，因为显示表单非模态不会不要打断代码。

那么如何解决这个烂摊子：

您需要实现的是一种显示/隐藏表单的控制器实例。不要让表格变得“聪明”，摧毁自己或知道接下来要显示哪种表格不是他们的工作——这是控制器的工作。控制器的工作也是决定是否销毁任何表单对象。

一个快速的解决方案是让主窗体成为控制器。这肯定不是最佳做法，但很容易实施。
在主窗体中，您将代码显示为这样的子窗体（由按钮或任何其他事件触发）

Sub showChildform()
    Me.Hide
    UFMainMenu.Show
    Me.Show
End Sub

就是这样。

UFMainMenu中，可以去掉UserForm_QueryClose的完整代码。现在您唯一需要记住的是如何关闭您的子表单。如果您只有系统关闭按钮，则无需执行任何操作 - 请记住，按下该按钮会破坏表单。但是，如果您添加一个按钮，如取消、关闭、确定或其他，您需要按代码“离开”表单。选项为Unload 或Hide。 Unload 是，如前所述，非常糟糕的做法，在按钮的触发代码中使用语句 Me.Hide。

但这会让您处于表单可以保留两种不同状态的情况：隐藏或销毁。如果要保持一致，将以下代码放入UserForm_QueryClose-Trigger，当系统关闭按钮按下时，它会隐藏表单但取消销毁。为此，它检查参数CloseMode：如果它的值为vbFormControlMenu，则用户按下关闭（有other cases 调用触发器）

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        Me.Hide
    End If
End Sub 

现在，为什么表单会自我毁灭被认为是不好的做法？简短的回答：这不是表单（或任何其他对象）的任务。它会使引用无效，并且调用代码不会知道。如果表单被按下 OK 或 Cancel 按钮，调用代码无法检查在表单上所做的任何事情。我可以更详细地解释这一点，但上面提到的 Rubberduck 文章已经很好地解释了。