Private Sub Command1_Click()
MsgBox quwei("海")
MsgBox hanzi(2603)
End Sub
Function quwei(ByVal x As String) As String
If Asc(x) >= 0 Then Exit Function
x = Hex(Asc(x))
quwei = Format(CDec("&H" & Left(x, 2)) - 160, "00") & Format(CDec("&H" & Right(x, 2)) - 160, "00")
End Function
Function hanzi(ByVal x As String) As String
hanzi = Chr("&H" & Hex(Val(Left(x, 2)) + 160) & Hex(Val(Right(x, 2)) + 160))
End Function
'用这个函数可以把区位码转换成对应的汉字
Function QW2HZ(QWM As Long) As String
Dim tmp(1) As Byte
tmp(0) = 160 + QWM \ 100
tmp(1) = 160 + QWM Mod 100
QW2HZ = StrConv(tmp(), vbUnicode)
End Function
Private Sub Command1_Click()
Dim tBytes() As Byte
ReDim tBytes(1)
tBytes(1) = 3 + 160
tBytes(0) = 26 + 160
Text1.Text = StrConv(tBytes(), vbUnicode)
End Sub