VB 中把文本加入到自定义资源中 怎么读取出来

[liyuan66]

因为文本 太大 没法放到字符串里
我就把文本放到TXT里 添加到自定义资源里了

读取的时候 用LoadResData读取后 然后放到text里 是乱码
怎么才能转换成文本呢

[Tiger_Zhao]

这个文本文件必须是ANSI格式的。

Private Sub Form_Load()
    Dim aData() As Byte
    aData = LoadResData(101, "CUSTOM")
    Text1 = StrConv(aData, vbUnicode)
End Sub

[liyuan66]

引用 1 楼 Tiger_Zhao 的回复:

这个文本文件必须是ANSI格式的。

Private Sub Form_Load()
    Dim aData() As Byte
    aData = LoadResData(101, "CUSTOM")
    Text1 = StrConv(aData, vbUnicode)
End Sub

谢谢