VBAのち～んｗ現象 - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

ち～んｗ珍現象あれこれ

右クリックメニューが逃げる問題

前回の

akashi-keirin.hatenablog.com

でご紹介した珍現象。TextBoxコントロールのMouseDownイベントを用いて、ショートカットキー押下と同じ現象を引き起こすプロシージャを呼び出しているのに、なぜか処理を呼び出す前にもう１回クリックイベントが起こったみたいになって、まるで１度右クリックメニューが逃げたみたいになっていた。

この文章では何のことか分からないので整理すると、

コードに書いた（はずの）処理

テキストボックス上で右クリック。
MouseDownイベント発生。
右クリックなので、「Button = 2」がTrueになり、ShowPopupメソッドが実行される。
右クリックメニューが表示される。
メニューのどれかを左クリック
左クリックした（CommandBarオブジェクト配下の）ControlオブジェクトのOnActionプロパティに登録されたプロシージャが呼び出される。

実際に起こっていること

テキストボックス上で右クリック。
MouseDownイベント発生。
右クリックなので、「Button = 2」がTrueになり、ShowPopupメソッドが実行される。
右クリックメニューが表示される。
メニューのどれかを左クリック
なぜか再度ShowPopupメソッドが発動。
5.でクリックした位置を基準として右クリックメニューが表示される。
以下省略（意図した通りの動きになる）。

何でこうなるのか、サッパリ分かりまへん。

とりあえずの対応

id:imihito さんからのアドヴァイスに沿って、MouseDownイベントのコードに少し記述を追加した。

前回のリスト３を、次のように変える。

リスト１　フォームモジュール

Private Sub TextBoxMain_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
                                  ByVal X As Single, ByVal Y As Single)
  Static flg As Boolean
  If Button = xlSecondaryButton Then
    flg = Not flg
    If flg Then contextMenu.ShowPopup
  End If
End Sub

コメント欄で id:imihito さんが教えてくださった通りなので、説明はごく簡潔に。

このプロシージャが終了しただけでは死なないStatic変数 flg を用意して、右クリックされるたびにNot演算することにより、TrueとFalseを１回ごとに切り替えている。これによって２回に１回だけShowPopupが起こるようにしている。

もちろん、これは単なる対症療法に過ぎなくて、全然根本的な解決ではない。

しかし、なんであんなわけの分からないことが起こるのかが分からない以上、どうしようもないとも言える。