Question

VB 中如何用ASC码判读TEXT中输入是否为中文字符

Answer 1

askii表可知：0-127为非汉字的的ASKII码，也就是说只要asc的返回值不是0-127之间的数值则可以判断为是汉字。

x=asc("你要判断的字符")

if x<0 and x>127 then msgbox "该字符为汉字"

希望对你有所帮助

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Asc(KeyAscii) < 0 Then magbox "您输入了中文"
End Sub

追问

其实我是希望判断出他是输入中文，非中文就报错！！
还有 大哥你写代码的时候 把解释也写上，方便我学习一下！！ 感激不尽

追答

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Asc(KeyAscii) > 0 Then ‘中文的asc码是小于0的
magbox "您输入除中文以外的数值" ’弹出提示框
KeyAscii=0 ‘清空输入
End Sub