タイトル | : Re: 右クリックのメニュー非表示について |
記事No | : 1340 |
投稿日 | : 2005/01/26(Wed) 12:27 |
投稿者 | : 花ちゃん |
下記でどうですか?
'貼り付け防止処理をしたカスタムテキストボックスを作成 Public Class cmTextBox 'テキストボックスを継承 Inherits System.Windows.Forms.TextBox
---- Windows フォーム デザイナで生成されたコード省略 ---- 'WndProc のオーバーライド Protected Overrides Sub WndProc(ByRef m As Message) Const WM_CUT As Integer = &H300 'カット(P840) Const WM_COPY As Integer = &H301 'コピー(P837) Const WM_PASTE As Integer = &H302 'ペースト(P876) Const WM_CONTEXTMENU As Integer = &H7B 'ポップアップメニュー Const WM_RBUTTONUP As Integer = &H205 '右ボタンアップ Select Case m.Msg
Case WM_CONTEXTMENU, WM_CUT, WM_PASTE, WM_RBUTTONUP m.Result = IntPtr.Zero Exit Sub End Select
'オブジェクト変数と同じように動作する MyBase.WndProc(m) End Sub End Class
'1.メニューのユーザコントロールの追加でファイル名をcmTextBox.vbにして追加する。 '2.作成した、cmTextBox.vb に上記のコードを記入してビルドする。 '3.ツールボックス上(マイユーザコントロールの欄)にcmTextBox コントロールが ' 出来ているのでForm1に貼り付ける
|