我有一个 MDI 父级,它打开另一个这样的表单:
Dim frm As New Form1
frm.ShowDialog(Me)
该表单有一个按钮,单击该按钮时会执行以下操作:
CreateObject("Shell.Application").ToggleDesktop()
该按钮大部分时间都按预期运行(显示桌面),但偶尔不会最小化 MDI 父级。所有其他窗口,包括上面的表格,每次都会被最小化。
为什么会发生这种情况,我该如何解决?
我有一个 MDI 父级,它打开另一个这样的表单:
Dim frm As New Form1
frm.ShowDialog(Me)
该表单有一个按钮,单击该按钮时会执行以下操作:
CreateObject("Shell.Application").ToggleDesktop()
该按钮大部分时间都按预期运行(显示桌面),但偶尔不会最小化 MDI 父级。所有其他窗口,包括上面的表格,每次都会被最小化。
为什么会发生这种情况,我该如何解决?