VB6中文转换为UTF-8字节

在Visual Basic 6（VB6）中，要将中文字符转换为UTF-8编码的字节序列，可以通过使用ADODB.Stream对象来完成。以下是一个简单的转换函数，演示如何实现这一转换过程：

Function ConvertChineseToUTF8(strChinese As String) As Byte()
    Dim objStream As Object
    Dim bytes() As Byte
    
    ' 创建一个ADODB.Stream对象
    Set objStream = CreateObject("ADODB.Stream")
    
    ' 设置Stream对象用于二进制操作
    With objStream
        .Type = 1 ' adTypeBinary
        .Mode = 3 ' adModeReadWrite
        .Open
        
        ' 将字符串转换为UTF-8编码并写入Stream
        .WriteText strChinese, , adUTF8
    
        ' 将流中的内容移动到开始位置
        .Position = 0
        
        ' 读取Stream中的字节到数组中
        bytes = .Read(-1)
        
        ' 关闭Stream
        .Close
    End With
    
    ' 清理
    Set objStream = Nothing
    
    ' 返回字节数组
    ConvertChineseToUTF8 = bytes
End Function

使用这个函数，可以将VB6中的字符串按照UTF-8编码转换为字节数组。例如：

Dim utf8Bytes As Byte()
utf8Bytes = ConvertChineseToUTF8("你好，世界！")

' 现在 utf8Bytes 包含了中文字符串 "你好，世界！" 的UTF-8编码的字节序列。

在使用这段代码之前，请确保你的项目引用了"ActiveX Data Objects x.x Library"，通常是版本6.0或以上，以支持ADODB.Stream对象。