Question

在VB中如何判断输入的字符符合要求

字符串中不允许出现数字和字母、标点符号，只能为中文

Answer 1

一个函数 IS_GBK_HZ ，返回是否为汉字。只能一个字符一个字符验证。

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Byte, ByVal Source As String, ByVal Length As Long)

'sHz只能为一个字符
Private Function IS_GBK_HZ(ByVal sHZ As String) As Boolean
Dim aHZ(1) As Byte

sHZ = Left(sHZ, 1)

If Len(sHZ) > 0 Then
CopyMemory aHZ(0), sHZ, 2
IS_GBK_HZ = (((aHZ(0) >= &H81) And (aHZ(0) < &HA1)) Or ((aHZ(0) >= &HAA) And (aHZ(0) < &HFE))) And (aHZ(1) >= &H40) And (aHZ(1) < &HFF)
End If

End Function

'测试
Private Sub Text1_Change()
Debug.Print Right(Text1.Text, 1) & " " & IS_GBK_HZ(Right(Text1.Text, 1))
End Sub

Answer 2

这个比较麻烦 你只能一位一位的检查过去！！ 代码如果要写的话还真有点多

在文本框的change事件里写 自己琢磨下吧！！ 提示下 把文本内容转为ASCII码这样就可以利用循环来检测了！就不必要一个一个检测，代码可以剩很多！！