详解VB6实现MUI程序_

1、详解VB6实现MUI程序_ 之前,我负责一个VB6编写的办公自动化系统,要求能在运行时,支持在不同语言间切换(英文,中文,日文,德文,法文和西班牙文);实质就是实现一个VB6的MUI程序. 这个需要的困难在于VB6显示文本的标准控件(Label,Textbox等)不支持Unicode;但字符串在其内部是按Unicode保存的,也就是说VB6本身是支持Unicode的. VB6中,标准控件显示字符串的过程如下: 1) 标准控件先将Unicode字符串转换成ANSI字符串; 2) 标准控件尝试将ANSI字符串转换成其Font.Charset属性中指定的字符集格式的字符串;假如转换失败,则显示为问号

2、(?). 具体可参照:Display Unicode Strings in Visual Basic 6.0. 因此,实现MUI程序的思路有两种: 1) 将标准控件替换为能支持Unicode的控件; 2) 将资源文件中不同字符集的文本,转换为ANSI格式,供应给标准控件用法; 第1)种方式可用 Forms 2.0 (fm20.dll); 第2)种方式,我在网上找到两篇文章,但各有不足: a) Auto-Detect Language and Display Unicode in VB6 TextBox and Label Controls; ChilkatCharset2控件需购买,具对日文的

3、一些标点符号(如全角句号)不支持. b) How To Convert from ANSI to Unicode Unicode to ANSI for OLE 没有测试胜利. 下面,着重介绍我自己认为比较胜利的实现,它用法了ADODB.Stream(msado25.tlb);其实现思路如下: 1) 将程序中用到的文本保存为Unicode格式的资源文件中; 之所以将资源文本保存为双字节的Unicode格式,而非Utf8或Utf7格式,可省去从其它格式向VB6支持的Unicode格式转换过程. 2) 将显示文本的标准控件的Font.Charset,设置为程序要显示语言所对应的字符集,并设置一种支

4、持这种字符集的字体到Font.Name属性 If g_Str.NumJapanese 0 Then charset = Shift_JIS Text1.Font.Name = MS UI Gothic Text1.Font.charset = 128 ElseIf g_Str.NumKorean 0 Then charset = ks_c_5601-1987 Text1.Font.Name = GulimChe Text1.Font.charset = 129 ElseIf g_Str.NumCentralEuro 0 Then charset = windows-1250 Text1.Fon

5、t.Name = Arial Text1.Font.charset = 238 ElseIf g_Str.NumArabic 0 Then charset = windows-1256 Text1.Font.Name = Traditional Arabic Text1.Font.charset = 178 ElseIf g_Str.NumHebrew 0 Then charset = windows-1255 Text1.Font.Name = David Text1.Font.charset = 177 ElseIf g_Str.NumCyrillic 0 Then charset = w

6、indows-1251 Text1.Font.Name = Arial Text1.Font.charset = 204 ElseIf g_Str.NumGreek 0 Then charset = windows-1253 Text1.Font.Name = Arial Text1.Font.charset = 161 ElseIf g_Str.NumThai 0 Then charset = windows-874 Text1.Font.Name = Angsana New Text1.Font.charset = 222 ElseIf g_Str.NumChinese 0 Then ch

7、arset = gb2312 Text1.Font.Name = SimSun Text1.Font.charset = 134 An alternative is to use Big5: Text1.Font.Name = MingLiu charset = big5 fontCh = 136 Else charset = windows-1252 Text1.Font.charset = 0 Text1.Font.Name = Arial End If 3) 依据要显示的语言,利用ADODB.Stream将资源文件中Unicode格式保存的字符串转换成操作系统的区域语言(Locale)支

8、持字符集的字符串; 调用API来猎取操作系统默认的区域语言设置(LocaleID) Private Declare Function GetSystemDefaultLCID Lib kernel32 () As Long 将Unicode字符串,转换为指定字符集的字节数组; 用于转换用资源文件中读取的文本; Public Function ConvertStringToBytes(ByRef strText As String, charset As String) As Byte() Dim objStream As ADODB.Stream Dim data() As Byte init

9、 stream Set objStream = New ADODB.Stream objStream.charset = charset objStream.Mode = adModeReadWrite objStream.Type = adTypeText objStream.Open write bytes into stream objStream.WriteText strText objStream.Flush rewind stream and read text objStream.Position = 0 objStream.Type = adTypeBinary objStr

10、eam.Read 3 skip first 3 bytes as this is the utf-8 marker data = objStream.Read() close up and return objStream.Close ConvertStringToUtf8Bytes = data End Function 转换为指定字符集的字节数组,转换为ANSI(即LocaleID)对应的字符集的字符串; 用于将ConvertStringToBytes()返回的字节数组转换为GetCharset()字符集的字符串. Public Function ConvertBytesToString(

11、ByRef data() As Byte, charset As String) As String Dim objStream As ADODB.Stream Dim strTmp As String init stream Set objStream = New ADODB.Stream objStream.charset = charset objStream.Mode = adModeReadWrite objStream.Type = adTypeBinary objStream.Open write bytes into stream objStream.Write data ob

12、jStream.Flush rewind stream and read text objStream.Position = 0 objStream.Type = adTypeText strTmp = objStream.ReadText close up and return objStream.Close ConvertUtf8BytesToString = strTmp End Function 猎取操作系统默认区域语言对应的字符集 Public Function GetCharset() As String Dim localeId As Long Dim charset As St

13、ring 猎取操作系统的LocaleId localeId = GetSystemDefaultLCID() Select Case localeId Case 1033 charset = windows-1252 Case 2052 charset = gb2312 Case 1041 charset = Shift_JIS Case Else charset = windows-1252 End Select GetCharset = charset End Function 显示资源文本中的文本 Private Sub DisplayText(filename As String) 保

14、存资源文本中的文本的变量 Dim textBytes As Variant Dim f As New FileSystemObject Dim fs As TextStream 将Unicode文本读取到变量中 Set fs = f.OpenTextFile(filename, ForReading, False, TristateTrue) Do While Not fs.AtEndOfStream textBytes = fs.ReadAll Loop fs.Close Convert to a Unicode string: Dim s As String s = textBytes D

15、im t As Long CkString是免费的第三方组件,可自动判定一个字符串所对应的字符集 下载地址: Dim g_Str As New CkString g_Str.Str = s 猎取资源文本所代表的字符集名称,设置对应的字体和字符集到textbox上 Dim charset As String If g_Str.NumJapanese 0 Then 日文 charset = Shift_JIS Text1.Font.Name = MS UI Gothic Text1.Font.charset = 128 ElseIf g_Str.NumKorean 0 Then 韩语 charse

16、t = ks_c_5601-1987 Text1.Font.Name = GulimChe Text1.Font.charset = 129 ElseIf g_Str.NumCentralEuro 0 Then 中欧语言 charset = windows-1250 Text1.Font.Name = Arial Text1.Font.charset = 238 ElseIf g_Str.NumArabic 0 Then 阿拉伯语 charset = windows-1256 Text1.Font.Name = Traditional Arabic Text1.Font.charset = 1

17、78 ElseIf g_Str.NumGreek 0 Then 希腊语 charset = windows-1253 Text1.Font.Name = Arial Text1.Font.charset = 161 ElseIf g_Str.NumThai 0 Then 泰语 charset = windows-874 Text1.Font.Name = Angsana New Text1.Font.charset = 222 ElseIf g_Str.NumChinese 0 Then 中文 charset = gb2312 Text1.Font.Name = SimSun Text1.Font.charset = 134 繁体则用法Big5: Text1.Font.Name = MingLiu charset = big5 Text1.Font.charset = 136 Else 默认值 charset = windows-1252 Text1.Font.charset = 0 Text1.Font.Name = Arial End If Dim bytes() As By