VB6 コマンドボタン クリックイベントについて

教えてください。
フォームに貼り付けているコマンドボタンのクリックイベントについてですが、クリックイベント内の処理で処理に時間がかかります。コマンドボタンを1度クリックすると、この処理を実行します。この状態であれば、問題ないのです。ところが、コマンドボタンを押して、処理している間にコマンドボタンを連打すると、ずーっと同じ処理を繰り返してしまいます。
クリックイベントが待ち行列にたまっているように思えるのですが、
これを回避する方法などがあれば教えてください。
・待ち行列をクリアするとか
・待ち行列にイベントがたまっていても、1度しか実行しない。
などなど、具体的な方法とサンプルコードなどを教えていただけないでしょうか。お願いします。
環境VB6　WIN２K　です。

No.5 ベストアンサー 回答者： ackapapa 回答日時： 2006/08/29 09:35

これでどうでしょうか？

処理中にDoeventsをすると処理を溜めないですぐに処理します。

Dim tt As Long
Private Sub Command1_Click()
Command1.Enabled = False
For i = 0 To 100000
DoEvents
Next i
Me.Caption = tt
Command1.Enabled = True
End Sub

Private Sub Form_Load()
tt = 0
End Sub

Private Sub Timer1_Timer()
tt = tt + 1
End Sub

No.6 回答者： Tom3141592 回答日時： 2006/08/29 09:52

※回答ではありません。

ボタンクリック処理内にDoEvents等の制御をWindowsに返すようなことをしていない場合、ボタンクリック処理が終わるまで次の処理(イベント)は処理されません。つまり、
処理の先頭でフラグを立てる→処理→フラグクリア→溜まった次のイベント処理
の流れになるため、No.3の補足にある処理は正しく動作しません。イベントは割り込みしないのです。

No.5の回答にあるような「処理中は操作させない」のが簡単な方法です。

No.4 回答者： dokumori 回答日時： 2006/08/27 20:00

ちょっと乱暴な方法ですが、以下の二つを考えました：

１．コマンドボタン押下後、そのコマンドボタンをロックしてしまう。（コマンドボタンからフォーカスを外さないと、コマンドボタンをdisableできません）

Private Sub Command0_Click()
me.text1.setfocus
me.command0.enabled=false

'処理

me.command0.enabled=true
End Sub


２．そのコマンドボタンの付いているフォームを非表示にする

Private Sub Command0_Click()
me.visible=false

'処理

me.visible=true
End Sub


どちらの場合もユーザーが混乱しないよう、メッセージを表示するのが良いと思います。ただし、msgbox関数のメッセージは"OK"などのボタンを押下すると消えてしまうので、フォームでポップアップ（最前面表示）メッセージを作って "処理中です..."などの表示をしておくのが良いと思います。

No.3 回答者： kamohura_01 回答日時： 2006/08/26 21:25

コマンドボタンをクリックした時に発生する処理が、処理中であるというフラグ変数を用意すれば、ボタンを連打しても処理が連続して発生しません。

Private m_blFlg As Boolean

Private Sub Command1_Click()

if m_blFlg then
Exit sub
end if

m_blFlg = True

'処理

m_blFlg = False

End Sub

念の為、フォームロードイベントでm_blFlg=Falseで
初期化しておいたほうがいいかもしれません。

この回答への補足

回答ありがとうございます。
結果から言いますとうまくいきませんでした。
そのコードを下記にしめします。
タイマーイベントが100msec（設定値）で発生して処理を行っているところにコマンドボタンを1度クリックすると１秒の処理をして、タイマーイベントが発生します。
しかし、コマンドボタンをクリック連打すると、タイマーイベントが発生しない状況になります。（1秒後には発生しない）連打した回数＊1秒後に発生するような感じです。
何か解決する方法はないでしょうか？
すみませんがよろしくお願いします。
Private Sub Command1_Click()
If CmdEnable = True Then
Exit Sub
End If
CmdEnable = True
Me.Command1.Enabled = False
Call DelayTime(1000) <<1秒間処理を行う関数
lonCount2 = lonCount2 + 1
Me.Text2.Text = Str$(lonCount2)
CmdEnable = False
Me.Command1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If TimerEnable = True Then
Exit Sub
End If
TimerEnable = True
lonCount = lonCount + 1
Me.Text1.Text = Str$(lonCount)
TimerEnable = False
End Sub

補足日時：2006/08/27 13:26

No.2 回答者： noname#22222 回答日時： 2006/08/26 18:21

静的変数でコマンドボタンの実行中か否かを記憶。

実行中であれば実行をキャンセルします。
実行の終了直前に静的変数を偽に戻します。

Private Sub Command1_Click()
　　Static isClick As Boolean
　　
　　If Not isClick Then
　　　　isClick = True
　　　　Debug.Print "Test!"
　　　　isClick = False
　　End If
End Sub

No.1 回答者： noname#20377 回答日時： 2006/08/26 17:40

例えば・・・・

Private Sub Command1_Click()

Command1.Enabled = false

'処理

Command1.Enabled = true


End Sub

'DoEventsやRefreshは関係ないか

この回答への補足

早速の回答ありがとうございます。
実際にやってみたのですが、
大きな変化はありませんでした。
見たところ、Enable.Falseの状態でもクリックイベントがたまり、
Enable.trueにすることで実行されているように見えました。

補足日時：2006/08/26 18:33