|
>eventChk
>を止めるには、Endステートメントしかないような気がします
いやそんな事はないです。
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
tm_continue = 1&
End Sub
など、×ボタンで閉じる事が「継続」なのか「終了」なのか、その意味合いに応じて
tm_continueに値を与えればいいでしょう?
『End ステートメント』のヘルプを読むと使う気が無くなると思ってましたがそうでもないですか?
「すべてのモジュール内のすべてのモジュール レベル変数および静的変数が初期化されます。
...クラス モジュールで作成されたオブジェクトは破壊され、
Open ステートメントを使って開かれたファイルは閉じられ、
プログラムで使われていたメモリは解放されます。
他のプログラムが保持しているオブジェクトへの参照は、無効になります。」
使わないほうが良いと思いますけど。
>ユーザーフォームについては
>vbModeless
>とするとどちらも、フォームが表示されなくなってしまうのですが
>どうしてそうなるのかわかりません
私の提示のSub test()の場合は
UserForm1.Show vbModal
の直後に
Unload UserForm1
を実行していますから。
vbModelessでの実行は想定していません。
Show メソッドのヘルプを見てください。
「ユーザー フォームがモードレスのとき、次のコードは中断されずに継続して実行されます。
...ユーザー フォームがモーダルの場合、アプリケーション内の他の部分を使用する前に、
ユーザーは必ず応答する必要があります。
ユーザー フォームを非表示にするか、またはアンロードするまで、次のコードは実行されません。」
|
|