怎样判断文本框输入的内容是纯英文.

yodong

如题.

yodong

谢谢

tmtony

这是我以前写的判断是否含有中文的函数,可以稍加修改反过来用在这里.

'======================================================================

'-函数名称:         gt_TmIncludeChinese

'-功能描述:         判断字符串中是否包含中文

'-输入参数:         参数1:strString  String 字符串

'-返回参数:         Boolean

'-使用示例:         gt_TmIncludeChinese "这里include 中文"

'-相关调用:         无

'-使用注意:         可能会漏掉一些特殊情况，需再改进

'-兼 容 性:         97,2000,XP,2003 compatible

'-参考资料:

'-作    者:         王宇虹  修改：王宇虹

'-创建日期;         2002-08-26  更新日期: 2002-08-28 ,2002-11-15

'-图    解:

'======================================================================

Public Function gt_TmIncludeChinese(strString As String) As Boolean

    Dim i As Integer

    Dim intStrLen As Integer

   

    gt_TmIncludeChinese = False

    intStrLen = Len(strString)

    For i = 1 To intStrLen

        Select Case Asc(Mid(strString, i, 1))

        Case Is > 128, Is < 0

            i = intStrLen + 1

            gt_TmIncludeChinese = True

        End Select

    Next

End Function

没牙兔兔

好像直接用掩码就可以实现或者逐个字符判断asc码是否在英文范围