以下是引用心中有剑在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 也加进去,但是不提倡用,因为 粘贴从剪贴板 里判断的代码感觉比较麻烦点
学习了