テキストボックスのポップアップメニューを表示しないようにするには？
解決どうも一般的に言われている、MouseDownイベントに
If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Text1.SetFocus
End if
を書き込んでデフォルトのポップアップメニューを表示しない
やり方がうまくいかないんですが、何故でしょう？
色々調べてこの方法が一番簡単にできそうなのですが、
普通にポップアップメニューがでてきてしまいます。
何故だめなのか、教えていただけないでしょうか。
システムは右ボタンの押下を検出すると
ターゲットWindowに対しWM_RBUTTONDOWNメッセージを発行します。
WM_RBUTTONDOWNメッセージを受けとったWindowは
ポップアップメニュー表示処理をしたあとで
MouseDownプロシージャを実行します。
つまり、MouseDownプロシージャでは遅すぎるわけです。
メッセージがWindowにわたされる前に
サブクラス化、またはメッセージフックで
つかまえて処理する必要があります。
> メッセージがWindowにわたされる前に
> サブクラス化、またはメッセージフックで
> つかまえて処理する必要があります。
・・・そんなに、面倒なことをしないといけなかったんでしたっけ…？
たしかOCXのリッチテキストボックスなら、ポップアップ抑止しやすかったような…？
細かくデバックした結果、デフォルトのポップアップメニューは
MouseDownイベントの後に発生しています。
以前マイクロソフトの技術情報でEnabledをFalseにするとWindowに
対するWM_RBUTTONDOWNメッセージが処理されない、と書いてあったのですが
確かにFalseにするとMouseDownイベントの後にポップアップメニューの
表示処理までいきません。しかし、直後にTrueにするときちんと処理されて
しまいます。
いろいろページでも紹介されているこのやり方が何故できないのか
不可解で仕方がありません。
サブクラス化して途中でメッセージをフックしてこちらで用意した処理に
すり替える方法で確実にできると思うのですが、サブクラス化の設定、解除
のことをいろいろ考えると、アプリケーションを強制終了させたときなど
危険すぎると思うのですが、どうでしょうか。
この方法しかできないのでしょうか？
私の勉強不足でしたら申し訳ありません。
Sayさん、たかみちえさん、t@Kiさんご回答有り難う御座います。
やはり、この方法ではできないということですか？
Sayさんとt@Kiさんのおっしゃっているやり方はAPIを使うということ
でしょうか？
なるべくAPI以外を避けたいのですが、もしこの方法しかないのでしたら
詳しくやり方を教えて頂けないでしょうか。
たかみちえさんのおっしゃっているリッチテキストボックスでの方法も
詳しく知りたいです。
正確には、WM_RBUTTONUPメッセージを受け取った後
ポップアップメニュー表示しているようですね。
ということは、MouseDownイベントが発生してから、
右ボタンをUPするまでの間、EnabledをFalseにしておけば、
WM_RBUTTONUPを拾えなくなるので
ポップアップメニュー表示を抑止できます。
たとえばこんな感じ。
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Text1.Enabled = False
Timer1.Interval = 500
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Text1.Enabled = True
Text1.SetFocus
Timer1.Enabled = False
End Sub
ただし、この例だと0.5秒以上押して離されたら効果ありません。
Sayさんの言う方法なら、
MouseDownでEnabledをFalseにして、
MouseUpでTrueにすればどうでしょう？
マウスボタンを押しながらキーボードボタンを押す(押しても意味無いですけど)や、
ホイールマウスの真ん中ボタンを押すなど(どこでもホイールなどのソフトがあれば、非対応ソフトでもホイールが使えるし)のとき、
動かないかもしれませんけど。
> たかみちえさんのおっしゃっているリッチテキストボックスでの方法も
うろ覚え(そればっか、MSDNでちゃんと確認なさい^^;)ですけど、
確かリッチエディットって、何もしないとポップアップメニューがそもそも出ないんじゃないでしたっけ…？
> リッチエディット
リッチテキストと同義です。
>MouseDownでEnabledをFalseにして、
>MouseUpでTrueにすればどうでしょう？
Timer使ってるのは
EnabledをFalseにすると
WM_RBUTTONUPを拾えなくなるので
MouseUpイベントもおきないからです。
ちなみに、API使って
、
If Button = vbRightButton Then
Text2.Enabled = False
Call Sleep(500)
Text2.Enabled = True
End If
とやるのもうまくいきません。
ループで待つのはうまくいきますが、
単純にカウンタでループすると
マシンスピードの影響をうけますので、
ループ内でtimeGetTimeなどで経過時間を計算して
抜ける工夫が必要になります。
>確かリッチエディットって、何もしないとポップアップメニューがそもそも出ないんじゃないでしたっけ…？
RichTextBox コントロールなら、なにもせずそのまま使えばOKです。
みなさん丁寧なご回答有り難うございました。
Timerをつかって実現することに成功しました。
こんどリッチテキストボックスも使ってみようと思います。
大変助かりました。有り難うございます。
| ツイート |  |