投稿日 | : 2003/01/20(Mon) 13:46 |
投稿者 | : AQUA |
Eメール | : |
URL | : |
タイトル | : Re^2: コマンドボタン押下イベント |
出来ました☆ ありがとうございました。
DoEvents関数を使えば出来そうかなって所まで行ったのですが、
Command1.Enabled = True '元に戻す
をした後に関数を使用しており、意味の無い事をして、出来ないと
悩んでおりました。
本当に助かりました。
> > コマンドボタンを押下するとコマンドボタンが使用不可になり、
> > DBを検索にいくのですが、コマンドボタンが使用不可の場合でも、
> > クリックすると検索終了後、すぐに次の検索を行ってしまいます。
>
> 使用可能状態に戻す「直前」に、DoEvents関数を発行してみては如何でしょうか。
>
> Private Sub Command1_Click()
> Command1.Enabled = False '使用禁止
>
> Rem 検索処理
>
> DoEvents 'マウスクリックやキー押下を、Command1_Clickイベントを抜ける前に処理する
> Command1.Enabled = True '元に戻す
> End Sub