请问各位,在VB中如何识别汉字?
解决方案 »
- 新手做简单FTP功能(高手多多帮忙
- ****請教如何實現不能對TextBox進行粘貼操作****
- 如何在数据库的末尾写入???
- 如何用VB截取webbrowser POST的数据?
- 请教高手 如何用程序操纵windows media play全屏
- 求助:用VB些了个操作EXCEL和WORD文件的小程序,程序第一次执行时正常,第二次执行时就会出错。
- 运行有问题!
- editgrid控件在编辑时,相同的字段为什么会自动合并!
- 棒壮图??送份!
- 那位高人能够告诉我Fie system Object的用法?
- 调用mkdir等系统命令时,如何得到返回值?
- 高分求救;简单问题这句sql查询语句该怎么写?急等。。。。
Public Function uLen(ByVal strBuf As String) As Long
Dim i As Long
Dim lngLen As Long
Dim lngULen As Long
lngLen = Len(strBuf)
For i = 1 To lngLen
''判断该字符是否为汉字.
''如果是汉字,那么该字符的高8位为1
If Asc(Mid(strBuf, i, 1)) And &H80 Then
lngULen = lngULen + 1
End If
lngULen = lngULen + 1
Next
uLen = lngULen
End Function