在文本框中不能使用粘贴

分享一下实用代码，希望能给大家带来帮助。

设置剪贴板的字符无法向TextBox粘贴的方法。

设置「Ctrl + V」和文本菜单无效的方法

[VB.NET]

''' <summary>
''' 使鼠标和键盘的粘贴无效的TextBox
''' </summary>
Public Class MyTextBox
Inherits TextBox
Private pasteKeys As Keys = Keys.V Or Keys.Control

Public Sub New()
'设置文本菜单不表示
Me.ContextMenu = New ContextMenu
End Sub

Protected Overrides Function ProcessCmdKey( _
ByRef msg As Message,ByVal keyData As Keys) As Boolean
'设置Ctrl+V无效
If (keyData Or pasteKeys) = pasteKeys Then
Return True
Else
Return MyBase.ProcessCmdKey(msg,keyData)
End If
End Function
End Class

 [C#]
 
 //using System.Windows.Forms;
 //上面一行写在代码的最上面

 /// <summary>
 ///使鼠标和键盘的粘贴无效的TextBox
 /// </summary>
 public class MyTextBox : TextBox
 {
     const Keys pasteKeys = Keys.V | Keys.Control;

     public MyTextBox() : base()
     {
         //设置文本菜单不表示
         this.ContextMenu = new ContextMenu();
     }

     protected override bool ProcessCmdKey(ref Message msg,Keys keyData)
     {
         //设置Ctrl+V无效
         if ((keyData | pasteKeys) == pasteKeys)
             return true;
         else
             return base.ProcessCmdKey(ref msg,keyData);
     }
 }

无视WM_PASTE消息的方法

另外，下面介绍的代码就是设置WM_PASTE消息无视的方法。

 [VB.NET]
 
 ''' <summary>
 '''使鼠标和键盘的粘贴无效的TextBox
 ''' </summary>
 Public Class MyTextBox
     Inherits TextBox
     Private WM_PASTE As Integer = &H302

     Protected Overrides Sub WndProc(ByRef m As Message)
         If m.Msg = WM_PASTE Then
             Return
         End If
         MyBase.WndProc(m)
     End Sub
 End Class

 [C#]
 
 //using System.Windows.Forms;
 //上面一行写在代码的最上面

 /// <summary>
 ///使鼠标和键盘的粘贴无效的TextBox
 /// </summary>
 public class MyTextBox : TextBox
 {
     const int WM_PASTE = 0x302;

     protected override void WndProc(ref Message m)
     {
         if (m.Msg == WM_PASTE)
             return;

         base.WndProc(ref m);
     }
 }

.NET Framework 2.0以后版本，使用ShortcutsEnabled属性的方法

从.NET Framework 2.0版本开始，TextBox的类里追回了ShortcutsEnabled属性。当属性设置为false时，在TextBox中使用的快捷键都无法使用。而且，文本菜单也无法表示。所以，字符串粘贴也无法使用。

但是，所有的快捷方式也都无效，复制等操作也无法使用。