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


 2003-04-22 17:02:07  No: 77784  IP: [192.*.*.*]

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

編集 削除
魔界の仮面弁士  2003-04-22 18:22:26  No: 77785  IP: [192.*.*.*]

メニューに表示させるだけなら、メニューエディタにて
「ウィンドウ リスト」を有効にしておけば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
という感じで。

編集 削除