[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消息无视的方法。
.NET Framework 2.0以后版本,使用ShortcutsEnabled属性的方法
从.NET Framework 2.0版本开始,TextBox的类里追回了ShortcutsEnabled属性。当属性设置为false时,在TextBox中使用的快捷键都无法使用。而且,文本菜单也无法表示。所以,字符串粘贴也无法使用。
但是,所有的快捷方式也都无效,复制等操作也无法使用。