VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何取得汉字的区位码
发表评论(0)作者:, 平台:, 阅读:11482, 日期: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))