| 投稿日 | ： 2005/05/18(Wed) 17:31 |
| 投稿者 | ： tomo |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: フォームを一度に全て閉じる方法（モーダルフォームが混在する場合） |
お早いご返答ありがとうございます。
参考コードをForm3（異常終了）の閉じるボタン「Command1_Click」の中に
記述して早速試してみましたが、同じメッセージが表示されてうまくいきませんでした^^;
＜コード抜粋＞
Private Sub Command1_Click()
Dim objForm As Form
For Each objForm In Forms
If Not objForm Is Me Then
Unload objForm
End If
Next objForm
Unload Me
End Sub
ＡＰＩ等でフォームがモードレスかモーダルか解る方法とかないのでしょうか。