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

質問

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

回答No.5

ackapapa · ベストアンサー

これでどうでしょうか？
処理中に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

※回答ではありません。

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

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

回答No.4

dokumori

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

１．コマンドボタン押下後、そのコマンドボタンをロックしてしまう。（コマンドボタンからフォーカスを外さないと、コマンドボタンを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

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

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

回答No.2

noname#22222

静的変数でコマンドボタンの実行中か否かを記憶。
実行中であれば実行をキャンセルします。
実行の終了直前に静的変数を偽に戻します。

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

例えば・・・・

Private Sub Command1_Click()

Command1.Enabled = false

'処理

Command1.Enabled = true

End Sub

'DoEventsやRefreshは関係ないか

補足

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