VB6.0のEnabledをfalseにしてもクリックイベントが走ってしまう・・・

質問

はじめまして。
今VBでオセロゲームを作成しているのですが、コンピュータが考えているときにボタンのEnabledをfalseにしてクリックイベントを走らせないようにしています。
デバックなどをするとうまくいくのですが実際プログラムを実行するとどうしてもEnableをTrueにした後にクリックイベントが走ってしまいます。クリックイベントがたまっているようにも見えるのですが何か解決法はあるのでしょうか。よろしくお願いします。

回答No.3

todo36 · ベストアンサー

クリックイベントがあがる前にメッセージを横取りして破棄すれば
よいでしょう。(SetWindowLong)

お礼

回答ありがとうございます。
今のところDoEventsを挿入することで
目的は達成されていますのでそちらの方法でいくことに
します。ありがとうございました。

回答No.2

maruru01

こんにちは。maruru01です。

コンピュータの処理中のコードに、DoEventsは入っていますか？
あと、別の方法としては、フラグを使用して、

Private Sub コマンド1_Click()

　　If flg Then
　　　　'処理
　　End If

End Sub

という感じで、フラグが立っている（True）間はClickイベント内の処理をスキップするという方法です。

補足

回答ありがとうございます。
フラグを使ったやり方は少し考えていたのですが、APIを使ったやり方がどうしても引っかかっています。その辺でアドバイスいれるとありがたいです。

回答No.1

taka_tetsu

Trueに戻す直前に、DoEventsをいれるとか。

補足

回答ありがとうございます。
風のうわさでスタックを破棄するという方法を聞いたのですが何かAPI関係で解決方法はないでしょうか。
DoEventsはあまり好ましくない処理らしいので・・・。
よろしくお願いします。