环境 使用的字符集
Visual Basic Unicode
32-bit 对象库 Unicode
16-bit 对象库 ANSI 和 DBCS
Windows NT API Unicode
Automation in Windows NT Unicode
Windows 95 API ANSI 和 DBCS
Automation in Windows 95 Unicode
To fuxc(Michael):
謝謝妳的回答﹐不過我說了妳的方法只是用VB內置的內碼轉換功能轉換Big与Gbk碼﹐這妳還沒看情我說的意思嗎﹖我說的是識別不是轉換﹐轉換我會﹐但也不是用Strconv函數用這种方法來轉換GB\GBK到Big5碼是非常好的,可是把Big5碼轉過來的話,結果居然是繁体﹐而且速度也較慢
Private Sub Command1_Click()
Dim strTemp As String
Text1 = "⒋ら筿(癘窥)莱φㄤ㎝瓣羆瞶甁城蝴疭┰甁の㎝瓣羆参縫ぺ┰㎝ェㄈ㎝瓣現┎淋叫瓣叭皘羆瞶Χ妈膀さぱと盡诀瞒秨ㄊ玡┕瓃瓣秈︽タΑ砐拜国"
strTemp = StrConv(Text1, vbFromUnicode, &H804)
Me.RichTextBox1 = StrConv(strTemp, vbUnicode, &H404)
End Sub