|
n さん ありがとうございます
>提示コードに Private Sub CommandButton2_Click() を加えた場合ですね?
です
>その時、Activateイベントが終ってないのでしょうね。
フォームが閉じたら終わるものと思っていました
よくわからないのですが、この辺強制停止みたいなことは出来るのでしょうか
簡単にコメント頂けるとうれしいです
よろしくお願い致します
>>i を、外出しで希望に操作がかないました
>のであればそれで構わないと思います。
は、もう少し試してみたのですが
どうも、動作がおかしいです
不具合を追いかけることがうまく出来ずに原因はつかめませんでした
>または、こんな対応でも。
では、うまく動作しました
Unload Me
If tm_continue > 0 Then
setTime = Now + TimeValue(interval)
Application.OnTime setTime, "TimeCheck"
Else
MsgBox "close" 'Close処理
End If
このあたり同様な方法で試してみたような気がしたのですが
なぜかうまく動作させることが出来ずに
>>i を、外出しで希望に操作がかないました
と思ったのですが駄目だったようです。
動作はうまく動いています
もう少し勉強してみます
ありがとうございました
Abyss さん ありがとうございます
>ご提示のコードを見た感じ、Userformの扱いに
>問題点があると思われます(Object扱い)。
>スムーズなコードの動作なら、↓のような
>取り入れもいいと思います。
本格的なコード?のご提示ありがとうございます
自己流で、動けばいいがベースだったので
ステップアップを目指して勉強させて頂きます
まだ、動作確認もしていないので
こんなことをお尋ねするのは心苦しいのですが
>ご提示のコードを見た感じ、Userformの扱いに
>問題点があると思われます(Object扱い)。
で、特にObject扱いが??です
お手数と思いますが
この辺、簡単にコメント頂けると
ご提示のコードの理解がしやすいような気がします
お気が向いたらコメント頂ければうれしいです
よろしくお願い致します
|
|