投稿日 | : 2005/01/29(Sat) 17:26 |
投稿者 | : おじん |
Eメール | : |
URL | : |
タイトル | : 処理を続けるには? |
教えていただきたい「こと」がうまく表現できなくて、表記のタイトルになりました。
質問の意味が通じましたら、教えてください。
例えば、下記のソースのように、エンドレスに実行している場合、Command1を
クリックすると、その処理は一時中断されます。
前もって、Commandボタンを一つ、Labelを一つ配置し、
メニューに、テスト−mnuPopup、その下位に、おわり−mnuExitを
エディットしておきます。
テスト実行の開始はFormをクリックします。そして、Commandボタンを押すと
Labelの数値は一時停止します。
質問は、Commandボタンが押されても(他のイベントが発生しても)処理が
続行するようにするには、どうしたらよいのでしょうか、です。
Option Explicit
Dim done As Boolean
Private Sub Command1_Click()
PopupMenu mnuPopup
End Sub
Private Sub Form_Click()
Dim n&
Do
DoEvents
n = n + 1: Label1.Caption = n
Loop Until done = True
End Sub
Private Sub mnuExit_Click()
done = True
End Sub
よろしくお願いいたします。