MDIの子フォームの一覧を取得するには

葵 2003-04-23 02:02:07 No: 77784

MDIの子フォームのフォーム名の一覧を取得する方法を教えてください。
お願いします。

魔界の仮面弁士 2003-04-23 03:22:26 No: 77785

メニューに表示させるだけなら、メニューエディタにて
「ウィンドウリスト」を有効にしておけばOKです。

プログラムから取得する場合は、
Dim Fm As Form

  Debug.Print "ハンドル"; Tab(15); "名前"; Tab(30); "タイトル"
  For Each Fm In Forms
      If Not TypeOf Fm Is MDIForm Then
          If Fm.MDIChild Then
              Debug.Print Fm.hWnd; Tab(15); Fm.Name; Tab(30); Fm.Caption
          End If
      End If
  Next
という感じで。