如何只让输入英文及数字字符和汉字?

Question

各位大虾们：
    
    在http://community.csdn.net/Expert/topic/3063/3063015.xml？temp=.9914514里讨论了只限制字符和数字这一功能是如何实现的。我现在想要的是不旦旦只能输入字符，而且还允许输入汉字，这该怎么做？

Answer 1

这个好解决呀。If InStr("，。/；‘、`《》？“：”}{|（）*—……%￥#·！~|,./;'[]\`<>?:{}+_)(*&^%$#@!~=", Chr(KeyAscii)) <> 0 Then KeyAscii = 0

Answer 2

给你个具体例子：新建工程
在Form1窗体里加个文本框Text1
下面是代码，将其粘到程序中按F5运行Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 And KeyAscii <> 8 Then
        If InStr("，。/；‘、`《》？“：”}{|（）*—……%￥#·！~|,./;'[]\`<>?:{}+_)(*&^%$#@!~=", Chr(KeyAscii)) <> 0 Then KeyAscii = 0
    End IfEnd Sub