投稿日 | : 2003/01/20(Mon) 13:19 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: コマンドボタン押下イベント |
> コマンドボタンを押下するとコマンドボタンが使用不可になり、
> DBを検索にいくのですが、コマンドボタンが使用不可の場合でも、
> クリックすると検索終了後、すぐに次の検索を行ってしまいます。
使用可能状態に戻す「直前」に、DoEvents関数を発行してみては如何でしょうか。
Private Sub Command1_Click()
Command1.Enabled = False '使用禁止
Rem 検索処理
DoEvents 'マウスクリックやキー押下を、Command1_Clickイベントを抜ける前に処理する
Command1.Enabled = True '元に戻す
End Sub