-PR-
解決済み

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

  • 暇なときにでも
  • 質問No.15125
  • 閲覧数144
  • ありがとう数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を使用してます。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1

ショートカットメニューを無効にする方法としてイベントが起こる前のマウスの右クリックについてWindowsのメッセージをトラップして処理する方法があります。
API関数であるSetWindowLong関数やCallWindowProc関数等とAddressOf演算子を活用すれば実現できます。
サブクラス化やWindowsメッセージをキーワードに書籍やインターネットを探してみてはいかがですか。すぐに実現できると思いますよ。
関連するQ&A
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

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

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ