|
▼よし さん:
こんばんは。
VBAでなく、VBの話ですか?
VBAで作ったって、同じですけど・・・。
まず、標準モジュールのコードについては、
Public sub Test()
Form1.show
On Error GoTo errsub
Unload Form1
exit sub
errsub:
MsgBox "Error!"
end sub
これをそのまま生かすとして、
問題は、Formモジュール内のコードですね!!
Unloadは、上記の「Test」プロシジャーで必ず、実行させるように
Formモジュール内で作成するしかないですよね!!
QueryUnload(vbaのQueryclose)で処理してみたらどうでしょうか?
例えば、ユーザーがボタンを押した時は、
Unloadmodeをチェックして、
Me.Hide
Cancel=True
とすれば、Testに制御が戻ります。
よって、Test内で Unload Form1が実行される。
この場合、Unloadステートメントが実行された時は、
Unloadmodeをチェックして
Cancel=Falseにしなければなりませんが。
こんな方法ではいけませんか?
|
|