vb6.0 控件加载utf-8格式的文件出现乱码

Question

不管用什么方法读文件到控件都出现乱码
richtextbox，textbox都一样，如何解决？！求各位大神帮帮小弟！！！

Answer 1

将UTF-8转为GB2312，网上有代码的。

Answer 2

转换吧 http://download.csdn.net/source/3147493

Answer 3

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
'常用的代码页：
const cpUTF8   =65001
const cpGB2312 =  936
const cpGB18030=54936
const cpUTF7   =65000
Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String
    Dim bufSize As Long
    bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)
    MultiByteToUTF16 = Space(bufSize)
    MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize
End FunctionFunction UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()
    Dim bufSize As Long
    Dim arr() As Byte
    bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)
    ReDim arr(bufSize - 1)
    WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0
    UTF16ToMultiByte = arr
End FunctionPrivate Sub Command1_Click()
    MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)
End Sub

Answer 4

谢谢这位大哥，我现在要把utf-8转换为string，而不是byte() ,怎么转呀？谢谢！！！

Answer 5

刚才问错人了 ，是问你的！
我现在要把utf-8转换为string，而不是byte() ,怎么转呀？谢谢！！！

Answer 6

直接赋值
string s
byte()  b()
s= b() 即可

Answer 7

Dim aBytes() As Byte,s as string
......
s = StrConv(aBytes, vbUnicode)

Answer 8

要先用二进制的方法，将数据读到Byte数组中，然后再4楼的方法转换。