VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/01/29(Sat) 17:26
投稿者： おじん
Ｅメール：
ＵＲＬ：
タイトル： 処理を続けるには？

教えていただきたい「こと」がうまく表現できなくて、表記のタイトルになりました。
質問の意味が通じましたら、教えてください。

例えば、下記のソースのように、エンドレスに実行している場合、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

よろしくお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -