为什么MDI父母偶尔不会最小化？

Question

我有一个MDI父级，可以打开另一个这样的表单：

Dim frm As New Form1
frm.ShowDialog(Me)

该表单有一个按钮，单击该按钮时会执行以下操作：

CreateObject("Shell.Application").ToggleDesktop()

按钮按预期运行（显示桌面）大部分时间，但偶尔不会最小化MDI父级。所有其他窗口，包括上面的窗体，每次都会被最小化。

为什么会发生这种情况，我该如何解决？

Answer 1

我没有尝试允许ShowDialog显示的表单，而是改变了我接近的角度。我将使用Show显示表单并指定MdiParent，然后伪造表单的形式。伪模式将禁用MDI父级的所有其他部分，但标题栏中的系统按钮除外。如果用户试图关闭MDI父级，“模态”窗口将发出一次哔声并稍微闪烁标题栏。