|
遅くなりました
abyss さん コメント頂きありがとうございます
>今回使われるUserformの目的は
>MsgBox的な役割で、Userformから戻り値を
>使う方法が適していると思ったのです。
>そのため、Userformの扱いはUserform側じゃなく
>呼び出す側ですべて管理するのが便利です。
>UserformのCloseメッセージをインターセットし、
>Hideさせて、実際破棄するのは呼び出す側で処理する。
>そうしたら、Userformモジュール中での面倒な処理は
>考えなくても済むからです。
なるほどです
コーディングも楽になるような気がします
が、みてみると難しいです
SetTimer
KillTimer
TimerID = SetTimer(0&, 0&, 10&, AddressOf TimerProc)
TimerProc
とか難しいかったです(理解できていません)
n さん ありがとうございます
>ONさんの理解の一助になれば幸いです。
>レベルを落として段階を踏むとしたら…
ありがとうございます
まだ、完全に理解しきれていないのですが
見比べることが出来て助かりました
元コードだけだと??のままだったようなような気がします
なんとか、双方、なにをしようとしているかは、わかるような気がしますが
API系難のため、少しづつ理解していこうと思います
1点教えて頂きたいのですが
フォームの×ボタンを押すと
abyss さん のは そのまま終了しますが
n さん のは、eventChkが動いています
(最後に×ボタンについては、非表示にしてしまおうと思っているのですが)
eventChk
を止めるには、Endステートメントしかないような気がします
>>強制停止
>できなくはないですけど、止めておいたほうが良いです。
>知識として知っておくという事なら、
>『End ステートメント』について調べてみてください。
VBはよくわかりませんが
VBAでは、Excel自体が終了しないようなのでいいような気がしますが
どうなんでしょう
やはり、不具合はありそうですか
まだテストしていないのですが
End ステートメント
については
UserForm_QueryClose で フラグを立て
eventChk で フラグが立っていたら
End ステートメント
みたいな気もしているのですがどうなんでしょう
アドバイス有りましたらよろしくお願い致します
|
|