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

[emit]

各位大虾们：

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

[HereWeAre]

这个好解决呀。

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

[HereWeAre]

给你个具体例子：

新建工程
在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 If

End Sub

[emit]

谢谢！谢谢，这正是我想要的。
还望今后多多指教啊！