VB6判断字符串中是否包含 汉字 源代码分享

Private Function TGGPDHZ(ByVal tggText As String) As Boolean

    Dim l As Long

    Dim i As Long

    l = Len(tggText)

    TGGPDHZ = False

    For i = 1 To l

        If Asc(Mid(tggText, i, 1)) < 0 Then

            TGGPDHZ = True

            Exit Function

        End If

    Next

End Function

Private Sub Command1_Click()

MsgBox TGGPDHZ(Text1.Text) 'True：有中文；False：无中文

End Sub