英文WINDOWS XP(已设置中文支持--Chinese (PRC) as Language for non-Unicode)下的VB6 SP6中文显示问题
请看:
Option Explicit
Private Sub Form_Load()
Dim arrbyt1() As Byte, arrbyt2() As Byte
Dim str1 As String, str2 As String, str3 As String, str4 As String
str1 = "神舟六号.jpg"
arrbyt1 = StrConv(str1, vbFromUnicode)
str2 = StrConv(arrbyt1, vbUnicode)
arrbyt2 = str1
str3 = arrbyt2
str4 = str1
Debug.Print "str1="; str1
Debug.Print "str2="; str2
Debug.Print "arrbyt2="; arrbyt2
Debug.Print "str3="; str3
Debug.Print "str4="; str4
End Sub
为什么str2结果是显示出来的是“????.jpg”
str1=神舟六号.jpg
str2=????.jpg
arrbyt2=神舟六号.jpg
str3=神舟六号.jpg
str4=神舟六号.jpg