![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
教えてください。
フォームに貼り付けているコマンドボタンのクリックイベントについてですが、クリックイベント内の処理で処理に時間がかかります。コマンドボタンを1度クリックすると、この処理を実行します。この状態であれば、問題ないのです。ところが、コマンドボタンを押して、処理している間にコマンドボタンを連打すると、ずーっと同じ処理を繰り返してしまいます。
クリックイベントが待ち行列にたまっているように思えるのですが、
これを回避する方法などがあれば教えてください。
・待ち行列をクリアするとか
・待ち行列にイベントがたまっていても、1度しか実行しない。
などなど、具体的な方法とサンプルコードなどを教えていただけないでしょうか。お願いします。
環境VB6 WIN2K です。
No.5ベストアンサー
- 回答日時:
これでどうでしょうか?
処理中に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
- 回答日時:
※回答ではありません。
ボタンクリック処理内にDoEvents等の制御をWindowsに返すようなことをしていない場合、ボタンクリック処理が終わるまで次の処理(イベント)は処理されません。つまり、
処理の先頭でフラグを立てる→処理→フラグクリア→溜まった次のイベント処理
の流れになるため、No.3の補足にある処理は正しく動作しません。イベントは割り込みしないのです。
No.5の回答にあるような「処理中は操作させない」のが簡単な方法です。
No.4
- 回答日時:
ちょっと乱暴な方法ですが、以下の二つを考えました:
1.コマンドボタン押下後、そのコマンドボタンをロックしてしまう。(コマンドボタンからフォーカスを外さないと、コマンドボタンをdisableできません)
Private Sub Command0_Click()
me.text1.setfocus
me.command0.enabled=false
'処理
me.command0.enabled=true
End Sub
2.そのコマンドボタンの付いているフォームを非表示にする
Private Sub Command0_Click()
me.visible=false
'処理
me.visible=true
End Sub
どちらの場合もユーザーが混乱しないよう、メッセージを表示するのが良いと思います。ただし、msgbox関数のメッセージは"OK"などのボタンを押下すると消えてしまうので、フォームでポップアップ(最前面表示)メッセージを作って "処理中です..."などの表示をしておくのが良いと思います。
No.3
- 回答日時:
コマンドボタンをクリックした時に発生する処理が、処理中であるというフラグ変数を用意すれば、ボタンを連打しても処理が連続して発生しません。
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秒後には発生しない)連打した回数*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
- 回答日時:
静的変数でコマンドボタンの実行中か否かを記憶。
実行中であれば実行をキャンセルします。
実行の終了直前に静的変数を偽に戻します。
Private Sub Command1_Click()
Static isClick As Boolean
If Not isClick Then
isClick = True
Debug.Print "Test!"
isClick = False
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 自動的に閉じるMsgBox
-
プログラム終了時に決まった処...
-
VBスクリプトで「お待ち下さい...
-
HTA(HTMLアプリケーション)にて...
-
VBA メッセージボックスを自動...
-
Application.ScreenUpdating=Fa...
-
ボタンが押された事を検知する...
-
Macターミナルで実行中のプログ...
-
自分のHTMLサイトでRSSを読み込...
-
家電製品の電力周波数を変える機械
-
tex 郵便記号のだしかた
-
MACで動く実行ファイルをWindow...
-
bmp→jpgに、jpg→bmpに
-
.sb3のファイルを.sb2に変換す...
-
緯度、経度の 10進法と 60進法...
-
[Visual C++]VCが起動しません...
-
C言語で、メモリを解放しないで...
-
バックグラウンドのプロセスの...
-
空きポートの取得方法
-
VB6での二重起動(複数起動)の制...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
メッセージボックスのボタン名変更
-
ACCESS側からEXCELの書式を設定...
-
VBSで応答不要のメッセージボッ...
-
VBA kernel32 の意味
-
Excel VBA で処理中断(DoEvents...
-
VBA、UserFormを前面に出力して...
-
エクセルVBAでクリップボード内...
-
ASP.NETでのメッセージ画面を出...
-
シャットダウン時のExcel強制終...
-
Application.ScreenUpdating=Fa...
-
VBA メッセージボックスを自動...
-
【C#】 あるイベントから別イ...
-
MFCのワーカースレッドとUIスレ...
-
ASP VBScriptでスクリプト実行...
-
エクセルが勝手に立ち上がる
-
VB.NETで数秒間msgboxの...
-
EXCEL VBA「Application.Displa...
-
<input type="file">タグで「キ...
-
MFCのメニューバーのイベント取得
おすすめ情報