vb.netascw的简单介绍

vb与vb.net得到汉字ASC的函数，该怎么解决

一样的还是使用asc函数就好了啊！，n=ASC（“汉”），不过汉字的asc码都是小于0的

站在用户的角度思考问题，与客户深入沟通，找到弋江网站设计与弋江网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网络空间、企业邮箱。业务覆盖弋江地区。

因为ascw返回的数据类型是integer型，“阜阳”两个字的UNICODE码是0x961C和0x9633，即38428和38451，大于32767的上限

要得到正数的话必须定义一个long型的变量来转换

lngReturn = clng("h" hex((ascw("阜"))))

debug.print lngReturn

lngReturn = clng("h" hex((ascw("阳"))))

debug.print lngReturn

结果是

38428

38451

上面思路是正确的，用ascw 函数也可以

private function LenC( ps as string ) as Integer

Dim n As Integer

Dim StrLen As Integer

For n = 1 To Len(Text1.Text)

If Ascw(Mid(Text1.Text, n, 1)) 256 Then

StrLen = StrLen + 2

Else

StrLen = StrLen + 1

Next n

return strLen

end function

当前名称：vb.netascw的简单介绍
分享网址：http://cdiso.cn/article/doeosji.html