| |
▼よし さん：
こんばんは。
ＶＢＡでなく、ＶＢの話ですか？
ＶＢＡで作ったって、同じですけど・・・。
まず、標準モジュールのコードについては、
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にしなければなりませんが。
こんな方法ではいけませんか？
|
|
ichinose
- 05/4/1(金) 18:31 -
