tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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を取得できますか?

ご伝授下さい。
宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。