以下是引用心中有剑在2007-8-6 9:49:36的发言：
用这句
If Strings.InStr("3,13,8,9,24,26", KeyAscii) = 0 Then KeyAscii = 0
替换

If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
就可以了

其中 3是复制 13是回车 8是backspace24是剪切 26是撤消

如果想粘贴就用 22 也加进去,但是不提倡用,因为 粘贴从剪贴板 里判断的代码感觉比较麻烦点

以下是引用心中有剑在2007-8-6 9:45:07的发言：
可以,ctrl+3 只要加个 3 ctrl+v 只要加个 22 比的你自己试试了!其实不是很复杂的

以下是引用Joforn在2007-8-6 10:04:52的发言：

别忘了还有菜单的粘贴哦。

以下是引用心中有剑在2007-8-6 11:04:08的发言：

加个小动作 哈哈

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Clipboard.Clear
End If
End Sub
我就不相信你还可以粘贴!

以下是引用Joforn在2007-8-6 11:13:42的发言：

编程是为了别人用得更方便，如果是有篇五万字的文章(英中混排)，用户要把它放在一个文本框中，但我要文本框中只显示里面的英文(假设有2500个字符),你不让用户粘贴，让用户用键盘一个一个输入进去，那你的程序还有意义吗？

编程是给人方便而不是给自己偷懒。

以下是引用心中有剑在2007-8-6 11:04:08的发言：

加个小动作 哈哈

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Clipboard.Clear
End If
End Sub
我就不相信你还可以粘贴!