解決済み

テキストボックス上でのショートカットメニューを無効にしたい

  • 暇なときにでも
  • 質問No.15125
  • 閲覧数149
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (26/44)

テキストボックス上で、右クリックをすると、クリップ
ボードにある文字列をテキストボックスにペーストする
ということをしたいのですが、右クリックを押すと
ショートカットメニューが開いてしまいます。
(下記コード参照)ショートカットメニューを無効に
する方法はあるでしょうか?

Private Sub Text1_MouseDown(Index As _ Integer,Button As Integer,Shift As _
Integer, X As Single, Y As Single)
With Text1
If Button = vbRightButton Then
If Clipboard.GetText <> "" Then
.SelText = Clipboard.GetText
End If
End If
End With
End Sub
VB6を使用してます。

質問者が選んだベストアンサー

  • 回答No.1

ショートカットメニューを無効にする方法としてイベントが起こる前のマウスの右クリックについてWindowsのメッセージをトラップして処理する方法があります。
API関数であるSetWindowLong関数やCallWindowProc関数等とAddressOf演算子を活用すれば実現できます。
サブクラス化やWindowsメッセージをキーワードに書籍やインターネットを探してみてはいかがですか。すぐに実現できると思いますよ。
4つの行動でOK-チップをためよう
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


より良い社会へ。感謝経済プロジェクト始動

ピックアップ

ページ先頭へ