VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

首页 - 经验之谈 - 如何取得汉字的区位码
发表评论(0)作者：, 平台：, 阅读：11604, 日期：2000-03-12


如何取得汉字的区位码



Dim f

Dim L1, R1 As Integer

Dim InputStr As String

InputStr = "汉"

f = Hex(Asc(InputStr))

L1 = CInt("&H" + Mid(f, 1, 2))

R1 = CInt("&H" + Mid(f, 3, 2))