0

次のような別のフォームを開く MDI 親があります。

Dim frm As New Form1
frm.ShowDialog(Me)

そのフォームには、クリックすると次のことを行うボタンがあります。

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

ほとんどの場合、ボタンは期待どおりに (デスクトップを表示して) 動作しますが、MDI の親が最小化されないことがあります。上記のフォームを含む他のすべてのウィンドウは、毎回最小化されます。

なぜこれが起こっているのですか?どうすれば修正できますか?

4

1 に答える 1

0

で示されているフォームを許可しようとする代わりに、ShowDialogアプローチする角度を変更しました。フォームを表示してShowを割り当て、MdiParent代わりにフォームのモダリティを偽造します。偽のモーダルは、タイトル バーのシステム ボタンを除く MDI 親の他のすべての部分を無効にします。ユーザーが MDI 親を閉じようとすると、「モーダル」ウィンドウが 1 回ビープ音を鳴らし、タイトル バーが少し点滅します。

于 2011-04-07T17:43:53.093 に答える