在文本框除了汉字外，其他任何字符都不允许输入。包括全角符号（，。等等），请问各位高手如何实现？

[chendaren]

感谢大家对小弟问的在文本框除了汉字外，其他任何字符都不允许输入。包括全角符号（，。等等），请问各位高手如何实现？一贴的答复，但是大家也许没有明白我的意思

我是问在文本框只允许输入汉字，不允许输入其他任何字符怎样才能实现？

[windygirl]

你把键盘的ASCII都找到，把它们屏蔽就可以了呀。
你可以使用KeyPress可以找到ASCII码值

[ipman]

找到汉字的asc码区间，然后用asc函数判断

[lisayxw]

Private Sub Text1_Change()
If LenB(StrConv(Text1.Text, vbFromUnicode)) <> 2 * Len(Text1.Text) Then
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = Asc("，")) Or (KeyAscii = Asc("。")) Then
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

[of123]

Private Sub Text1_KeyPress(KeyAscii As Integer)
select case keyascii
case asc("，"),Asc("。")
keyascii=0
case is < 0
keyascii=0
end select
End Sub

[luixui]

关注

[tanyx]

把事情设计成这样，不太好。应该在设计的其他方面考虑一下，是否在输入时屏蔽为最合适。

[zhuangbx220]

应该逐个分析文本的ASC码