pb中怎样将汉字转换成内码,怎样把内码转换成汉字?

有一个OCX可以做到的，跟我联系，我发给你。或留下你的地址。

TO: dhwan(大海湾)
你可以到我的主页下载 http://pbcorner.yeah.net/
2002-04-06更新的，“用于转换繁体字-简体字”

//别忘了把我的主页推荐给你的朋友，谢谢。
//有空与我交个朋友，QQ:26317161

给我一个：xiaoxiongfcl@163.com

转换成ASCII码简单用CAHR就可以了．
把ASCII转换成汉字用以下我编的函数
Integer li_hexstring0,li_hexstring1,li,li_order,li_A,li_F,li_0,li_9
String ls_hexstring

hexstring = mid(hexstring,7)
li_a = Asc('A')
li_f = Asc('F')
li_0 = Asc('0')
li_9 = Asc('9')
li_hexstring0 = Asc(hexstring)
If (li_hexstring0 <= li_f And li_hexstring0 >= li_a) Or (li_hexstring0 <= li_9 And li_hexstring0 >= li_0) Or &
(li_hexstring0 <= Asc('f') And li_hexstring0 >= Asc('a')) Then
hexstring = Upper(hexstring)
li_order = 0
ls_hexstring = ''
For li = 1 To Len(hexstring)
li_hexstring0 = Asc(Mid(hexstring,li,1))
If li_hexstring0 <= li_f And li_hexstring0 >= li_a Then
li_hexstring0 = li_hexstring0 - li_a + 10
ElseIf li_hexstring0 <= li_9 And li_hexstring0 >= li_0 Then
li_hexstring0 = li_hexstring0 - li_0
Else
li_hexstring0 = -1
End If
If li_hexstring0 >= 0 Then
If li_order = 0 Then
li_order ++
li_hexstring1 = li_hexstring0
Else
li_order = 0
li_hexstring1 = li_hexstring1 * 16 + li_hexstring0
ls_hexstring += String(Char(li_hexstring1))
End If
End If
Next
hexstring = ls_hexstring
End If

Return hexstring