判断字符串是否有汉字、全角半角的判断

        Dim reg As System.Text.RegularExpressions.Regex
        Dim strPattern As String = "[/u4e00-/u9fa5]"
        If reg.IsMatch("我的世界abc", strPattern) = True Then
            MsgBox("有汉字")
        Else
            MsgBox("没汉字")
        End If

        strPattern = "[^/x00-/x7F]"
        If reg.IsMatch("我的世界abc。，,.", strPattern) = True Then
            MsgBox("有全角字符")
        Else
            MsgBox("有全角字符")
        End If

 

'忘记来源了