タイトル : MDIフォームで閉じた画面まで取得できてしまう 投稿日 : 2014/11/20(Thu) 12:00 投稿者 : ぼす
お世話になります。 MDIChild画面を複数件立ち上げて(同一Form名、Captionが異なる) MDIChildのForm QueryUnload(Unloadが機能しない為)で以下のように解放しています。 For Each fmMdiTmpForm In Forms If Not TypeOf fmMdiTmpForm Is MDIForm Then If fmMdiTmpForm.MDIChild Then If fmMdiTmpForm.hwnd = Me.hwnd Then Set fmMdiTmpForm = Nothing Exit Sub End If End If End If Next MDIChildの画面を1つ閉じて、複数件ある場合に閉じた画面も検出されてしまいます。 検出方法は For Each fmMdiForm In Forms If Not TypeOf fmMdiForm Is MDIForm Then If fmMdiForm.MDIChild Then If fmMdiForm.hwnd = Me.hwnd Then debug.print fmMdiForm.caption End If End If End If Next どのように、閉じるもしくは、検出すれば、現状の複数件あるMDIChildを取得できますか? ご伝授下さい。 宜しくお願い致します。 |