如何判断字符串中是否包含有全角字符？

[forever_chang]

如题

[westneverwin]

用api函数lstrlen和VB的len比较一下，如果相同就没有。 因为VB的len中全角算一个字符，长度为一，lstrlen中为二。

[miaoweijun]

不用Api.用


Private Sub Form_Load()
Dim s As String
s = "ab山d"
If Len(s) <> LenB(StrConv(s, vbFromUnicode)) Then
MsgBox "包含"
End If
End Sub

[miaoweijun]

不用Api.用


Private Sub Form_Load()
Dim s As String
s = "ab山d"
If Len(s) <> LenB(StrConv(s, vbFromUnicode)) Then
MsgBox "包含"
End If
End Sub