教えてください。
フォームに貼り付けているコマンドボタンのクリックイベントについてですが、クリックイベント内の処理で処理に時間がかかります。コマンドボタンを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で質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) pythonで、tkinterとpillowの組み合わせ 2 2022/08/16 17:42
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- C言語・C++・C# 必ずyou bet と表示されます 2 2023/07/28 22:19
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Visual Basic(VBA) VBA ユーザーフォーム 3 2022/04/14 10:30
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- その他(プログラミング・Web制作) uwscとWinShotを使いスクリーンショットを撮る 1 2022/06/30 21:15
- JavaScript ソースコードは下の共有コードサイト「張り紙」にあります。 入力フォームの javascript で 1 2022/05/11 11:01
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS側からEXCELの書式を設定...
-
VBA メッセージボックスを自動...
-
メッセージボックスのボタン名変更
-
VBSの処理中一旦処理を止めて再...
-
VBA kernel32 の意味
-
【C#】 あるイベントから別イ...
-
Timerのカウントダウンのしかた...
-
[VC++] AfxBeginThreadで生成し...
-
Application.ScreenUpdating=Fa...
-
エクセルVBAでクリップボード内...
-
Excel VBA 自動的に閉じるMsgBox
-
B列に特定の文字列が入っている...
-
ASP.NETでのメッセージ画面を出...
-
My Documentsディレクトリを
-
VBA、UserFormを前面に出力して...
-
EXCEL VBA「Application.Displa...
-
PostMessageの連続送信
-
シャットダウン時のExcel強制終...
-
MFCのワーカースレッドとUIスレ...
-
マルチスレッドを実現したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスのボタン名変更
-
VBSの処理中一旦処理を止めて再...
-
VBSで応答不要のメッセージボッ...
-
ACCESS側からEXCELの書式を設定...
-
VBA メッセージボックスを自動...
-
Application.ScreenUpdating=Fa...
-
VBA kernel32 の意味
-
エクセルVBAでクリップボード内...
-
Excelのワークシートに行を挿入...
-
Excel VBA で処理中断(DoEvents...
-
【C#】 あるイベントから別イ...
-
手動かプログラムでの起動かの判断
-
ASP.NETでのメッセージ画面を出...
-
Excel VBA 自動的に閉じるMsgBox
-
シャットダウン時のExcel強制終...
-
VBA、UserFormを前面に出力して...
-
<input type="file">タグで「キ...
-
Excel VBA 実行中に一瞬フリー...
-
「キャンセル」ボタン付きの処...
-
EXCEL VBA「Application.Displa...
おすすめ情報