vbモーダルについて

質問

VB6.0について質問です。
FormAからFormBをモーダルで開き、さらにFormBからFormDをモーダルで開く
という一連の操作を行いたいのですがうまくいきません＞＜
エラー内容は、FromDを開く際にFormB内のデータが存在しなかったら
FormDを表示せずにアンロードしたいのに表示されたままになってしまいます。
以下のコードで処理を行ってるのですがエラーのフラグを立ててアンロード処理を
行おうとしてもExitに移った瞬間にプログラムが終了してしまいます。
FormDをモーダレスで開くとアンロード処理まで普通に処理されます。
モーダルでアンロード処理までいくにはどのような処理を加えたらよいでしょうか？

If i = 0 Then
MsgBox "データありません。"
Err_Flg = 1
Exit Sub
End If
----------------------------
If Err_Flg = 1 Then
Err_Flg = 0
Unload FormD
End If

回答No.1

Kuppycat · ベストアンサー

FormDをLoadする前にFormB内データをチェックして、存在したらFormDをLoad、Showするほうがよいと思います。

<FormB側>
Private Sub callFormD()

if i = 0 then
　MsgBox "データありません。"
else
　FormD.Load
　FormD.Show vbModal
End If

End Sub

回答No.3

gongon-papa

Form_Loadではなく、Form_Activateでunloadすれば大丈夫かと思います。

回答No.2

jyamo

先にFORMBをhideにしてモードレスで開いてFROMDを開くとか・・・だめか。