'屏蔽CTRL+V
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.Control = True And e.KeyCode = Keys.V Then
Clipboard.SetDataObject("")'将空字符放入剪贴板,也起到了清空的作用
End If
End Sub
'屏蔽鼠标右键粘贴
Private Sub TextBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown
If e.Button = MouseButtons.Right Then
Clipboard.SetDataObject("")
End If
End Sub