Question

VB6．0怎么验证文本框中内容是否为汉字？

谢谢！

Answer 1

楼上说的对，汉字的ASCII码的值全是负数，可以在TEXT控件的KEYPRESS事件中判断ASCII码是否为负。代码楼上已经给出我就不写啦。

Answer 2

这样就可以了Private Sub Command1_Click() Dim i, t For i = 1 To Len(Text1.Text) t = Mid(Text1.Text, i, 1) If Asc(t) < 0 Then ' 在VB中，中文的ASCII值总是负值 MsgBox t, 0, "汉字" End If Next End Sub