VB 字符串转中文？

Question

本帖最后由 Eaz123 于 2010-03-27 22:02:51 编辑

Answer 1

用vb的chrw()函数：
\u9648\u76f8\u5982
chrw(&h9648),chrw(&h76f8),chrw(&h5982)
陈，相，如

Answer 2

原来如此！
请到MSDN中查阅有关strConv函数的资料。

Answer 3

Option ExplicitPrivate Sub Form_Load()
    MsgBox strUcodeToCh("\u9648\u76f8\u5982")
End SubPublic Function strUcodeToCh(strUCode$) As String
    Dim v, i&, l&, strResult$
    strUCode = Mid(strUCode, 2)
    v = Split(strUCode, "\")
    For i = 0 To UBound(v)
        l = CLng("&H" & Mid(v(i), 2, 2)) * 256 + CLng("&H" & Mid(v(i), 4))
        strResult = strResult & ChrW(l)
    Next
    strUcodeToCh = strResult
End Function