| 投稿日 | ： 2005/05/18(Wed) 22:36 |
| 投稿者 | ： のびた |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: フォームを一度に全て閉じる方法（モーダルフォームが混在する場合） |
> ＡＰＩ等でフォームがモードレスかモーダルか解る方法とかないのでしょうか。
なにか難しく考えすぎていませんか？
フォームを表示しているのは自分のプログラムなんだから
呼び出したところで自分を閉じてやればいいだけでは？
例えばForm1,Form2,Form3にそれぞれCommand1を貼り付けてやって以下のコードを書きます
'Form1のコード
Private Sub Command1_Click()
Form2.Show vbModal
If Form2.intErr Then
Unload Me
End If
End Sub
'Form2のコード
Option Explicit
Public intErr As Integer
Private Sub Command1_Click()
Form3.Show vbModal
If Form3.intErr Then
intErr = -1
Unload Me
End If
End Sub
'Form3のコード
Option Explicit
Public intErr As Integer
Private Sub Command1_Click()
intErr = -1
Unload Me
End Sub