AQUAと言います。
知っている方、教えて下さい。

コマンドボタンを押下するとコマンドボタンが使用不可になり、
DBを検索にいくのですが、コマンドボタンが使用不可の場合でも、
クリックすると検索終了後、すぐに次の検索を行ってしまいます。

コマンドボタン使用不可の時にはコマンドボタンを押しても何もイベント
が走って欲しくないのですが、どのように制御すれば良いのでしょうか？

VisualBasic6で開発しています。

宜しくお願いします。

> コマンドボタンを押下するとコマンドボタンが使用不可になり、
> DBを検索にいくのですが、コマンドボタンが使用不可の場合でも、
> クリックすると検索終了後、すぐに次の検索を行ってしまいます。

使用可能状態に戻す「直前」に、DoEvents関数を発行してみては如何でしょうか。

Private Sub Command1_Click()
   Command1.Enabled = False   '使用禁止

   Rem 検索処理

   DoEvents    'マウスクリックやキー押下を、Command1_Clickイベントを抜ける前に処理する
   Command1.Enabled = True    '元に戻す
End Sub

出来ました☆　ありがとうございました。
DoEvents関数を使えば出来そうかなって所まで行ったのですが、
Command1.Enabled = True    '元に戻す
をした後に関数を使用しており、意味の無い事をして、出来ないと
悩んでおりました。
本当に助かりました。


> > コマンドボタンを押下するとコマンドボタンが使用不可になり、
> > DBを検索にいくのですが、コマンドボタンが使用不可の場合でも、
> > クリックすると検索終了後、すぐに次の検索を行ってしまいます。
>
> 使用可能状態に戻す「直前」に、DoEvents関数を発行してみては如何でしょうか。
>
> Private Sub Command1_Click()
>    Command1.Enabled = False   '使用禁止
>
>    Rem 検索処理
>
>    DoEvents    'マウスクリックやキー押下を、Command1_Clickイベントを抜ける前に処理する
>    Command1.Enabled = True    '元に戻す
> End Sub