unicode 简体转繁体 如何实现？。。。。。。大送分

Question

unicode 简体 如何 变成 unicode 繁体啊？各位老大！谢谢大送分

Answer 1

应该不是gbk 转 big5的。

Answer 2

试试：Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long'简转繁
Public Function JToF(ByVal Str As String) As String
    Dim STlen As Long
    Dim STf As String
    STlen = lstrlen(Str)
    STf = Space(STlen)
    LCMapString &H804, &H4000000, Str, STlen, STf, STlen
    JToF = STf
End Function'繁转简
Public Function FToJ(ByVal Str As String) As String
    Dim STlen As Long
    Dim STj As String
    STlen = lstrlen(Str)
    STj = Space(STlen)
    LCMapString &H804, &H2000000, Str, STlen, STj, STlen
    FToJ = STj
End Function

Answer 3

不是VB有個這樣的函數嗎?StrConv
StrConv(待转换字串, 转换格式)

Answer 4

自己用google搜吧，方法很多：）

Answer 5

在繁體系統下面，vb的textbox，用unicode簡體打字出現了？？和亂碼情況，如何解決？但是在非vb的軟件，就比如ie，qq，msn用unicode簡體都正常顯示。