開いているフォームをまとめて閉じるには

複数のフォームが開かれている場合に、個別に閉じたり、フォーム名を指定して閉じるのは効率が 良くありません。
そこで開かれているフォームを自動で調べて、全てのフォームをまとめて閉じるようにします。

    (ポイント)
  • Formsコレクションで開いているフォームの数を調べる(フォームは開いた順に番号を持っている)
  • 大きな番号を持っているフォームから閉じてゆく(先頭から閉じるとフォーム番号がシフトしてしまう)
  • Forステートメントでフォームの数だけCloseメソッドを繰り返す
  • 他の場面でも使えるように標準プロシージャとして作成する。

作成例

  1. 標準モジュールを作成する。
    データベースウインドウのモジュールウインドウを開き「メニュー」から「挿入」→「標準モジュール」でEditorが開く。次のプロシージャを記述する。
  2. フォームの「閉じる」ボタンのプロシージャに作成した標準プロシージャを呼び出す記述をする。
  3. これで完成。フォーム数に関係なくまとめてフォームが閉じられます。しかしメニューフォームは開いておかないと困りますね。そのコマンドも記述しておきましょう。(上図)

(この項終わり)