[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/11/16(Wed) 16:26
投稿者名:Kシステム
Eメール:
URL :
タイトル:
MSFLEXGRIDのクリック・マウスダウンイベントでの動作
宜しくお願いします。
MSFLEXGRIDのクリックイベントに動作を設定すると右クリックでメニューを表示させる事が
出来ないために、マウスダウンイベントにコードを記述したのですが、これだと右クリックの
制御も出来るのですが、コードには他のアプリケーションをアクティブにしたり、他のアプリ
ケーションに文字を送るなどのプログラムを記述しています。この際にマウスのポインタが
画面上で砂時計になったり、或いは、ボタンを4、5回も連続で使用するとフォーム上をク
リックするだけで、MSFLEXGRIDのマウスダウンイベントが働いたりしておかしくなります。
クリックイベントに記述するとそのような事は起こらないのですが、右クリックでメニューが
表示出来なくなります。
何か良い解決方法など御座いませんでしょうか?

投稿時間:2005/11/16(Wed) 16:49
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: MSFLEXGRIDのクリック・マウスダウンイベントでの動作
下記のようにフラグを設定して処理を分岐したのではだめですか?

Option Explicit
Private frgRightButton As Boolean
Private Sub MSFlexGrid1_Click()
    If frgRightButton Then
        Exit Sub
    Else
        Debug.Print "クリックされました"
    End If
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As
Single)
    frgRightButton = False
    If Button = vbRightButton Then
        frgRightButton = True
    End If
End Sub

投稿時間:2005/11/18(Fri) 20:08
投稿者名:Kシステム
Eメール:
URL :
タイトル:
Re^2: MSFLEXGRIDのクリック・マウスダウンイベントでの動作
> 下記のようにフラグを設定して処理を分岐したのではだめですか?
ご回答有難う御座います。早速試してみたいと思います。
後でまたご報告させて頂きます。

投稿時間:2005/11/18(Fri) 22:15
投稿者名:Kシステム
Eメール:
URL :
タイトル:
Re^3: MSFLEXGRIDのクリック・マウスダウンイベントでの動作
花ちゃん様有難う御座います。
このような手法を用いると出来るのですね。
とりあえず今のところはスムーズに動いています。
また何かありましたら宜しくお願いします。