タイマーのついたプログラムを中断するには？

---

タイマー機能を使っているんですが、
このように

Private Sub ｃｍｄ_Click()
    If Timer1.Enabled = True Then
        Timer1.Enabled = False
    End If
    ・
    ・
    ・
End Sub

コマンドボタンをクリックして、タイマー内の処理を中断しているんですが、
タイマー内のプログラムを最後まで終わらせてからコマンドボタン内の処理を
するにはどうしたらいいのでしょうか？

編集 削除

---

Private Sub Command1_Click()
    処理Ｃ
End Sub
Private Sub Timer1_Timer()
    処理Ａ
    DoEvents
    処理Ｂ
End Sub

こういうことですか？
例えば、処理Ａを実行中にボタンを押した場合に
・処理Ａ -> 処理Ｃ -> 処理Ｂ
の順番で処理がされているものを
・処理Ａ -> 処理Ｂ -> 処理Ｃ
の順番で処理を行いたいと？

編集 削除

---

ぽちさんレスありがとうございます。
そのとうりです。書き方がへたくそですみません。

編集 削除

---

# 私的には、タイマーコントロールを良く使いますが、
# このような事で困ったことはありません。

Label1, Timer1, Command1 をフォーム上に配置し、
下のコードを貼り付けて実行してみて下さい。
ラベルのキャプションが変更されはじめたら（処理Ａが動き始めたら）、
ボタンを押してみて下さい。

下のコードの場合、デバッグウィンドウに
処理Ａ
処理Ｃ
処理Ｂ
と表示されると思います。

ＡＢＣの順にする一番簡単な方法は、
Timer イベント内に DoEvents を記述しないことです。
どうしても、 DoEvents を入れなければならない場合、
フラグを使用するなど、結構面倒くさくなってしまうと思います。

Option Explicit
Private Sub Command1_Click()
  Debug.Print "処理Ｃ"
End Sub
Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
  Dim i As Integer
  Debug.Print "処理Ａ"
  For i = 0 To 8000
    Label1.Caption = "処理Ａ   " & i
    Label1.Refresh
  Next i
  DoEvents
  Debug.Print "処理Ｂ"
  For i = 0 To 8000
    Label1.Caption = "処理Ｂ   " & i
    Label1.Refresh
  Next i
  Timer1.Enabled = False
End Sub

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。