タイムストッププログラム

質問

お世話になります。
コマンドボタン２をおしても
タイムがとまらないんですが・・・

なぜでしょうか？
Private Sub Command1_Click()

Dim k As Integer
Dim NOW As Long

For k = 1 To 1000

Text1.Text = k

NOW = Timer
While Timer < NOW + 1 '1秒間待機する
DoEvents
Wend

If Command2.Value = True Then Exit For

Next k

End Sub

回答No.1

t_shadowback · ベストアンサー

おや。先日は、伝えきれなくてすみませんでした。。。

なるほど、そう言う事がやりたいのでしたら。フラグを使用してはどうでしょう。

グローバル変数で、下記などの様に、フラグを宣言しておく。
Dim exFlg As Boolean

コマンドボタン２で、フラグをONにする。
Private Sub Command2_Click()
exFlg = True
End Sub

先の、For～Next内で、フラグのON/OFFを判断して、抜ける。この時、フラグをOFFにしておくのを、お忘れなく。

If exFlg = True Then
exFlg = False
Exit For
End If

これで、終わりませんか？

お礼

できました！！
ありがとうございます。