在线等,如何判断输入文本框的内容为汉字而非全角英文?

Question

在线等,如何判断输入文本框的内容为汉字而非全角英文?
我用strconv(str,vbFromUnicode)只能区分全角和半角,该怎么办?

Answer 1

Private Sub Command1_Click()
If StrConv(Text1.Text, vbNarrow) = Text1.Text Then
MsgBox "半角字符"
Else
MsgBox "全角字符"
End If
End SubPrivate Sub Form_Load()
'Text1 = "汉字"
Text1 = StrConv("HANZI", vbWide)
End Sub

Answer 2

Private Sub Command1_Click()
If StrConv(Text1.Text, vbNarrow) = Text1.Text Then
MsgBox "汉字、英文或数字"
Else
MsgBox "全角字符"
End If
End Sub