| 投稿日 | ： 2005/05/18(Wed) 23:02 |
| 投稿者 | ： K.J.K. |
| Ｅメール | ： akiya@koalanet.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： Re: フォームを一度に全て閉じる方法（モーダルフォームが混在する場合） |
全てVisibleプロパティがTrueであって、かつLoadイベント
プロシージャ中で呼び出されるのでなく、APIやActiveX DLLでの
モーダルダイアログは用いていないのであれば、
Dim oForm As Form
Do While (0& < Forms.Count)
For Each oForm In Forms
If oForm.Enabled Then
Call Unload(oForm)
End If
Next
Loop
辺りで十分では。まぁ、状況に応じてエラー処理などを付加する
必要があるでしょう。例えば、API関数などでモーダルダイアログを
表示する可能性がある場合など、には少し工夫をしてください。