之前,我負(fù)責(zé)一個(gè)VB6編寫的辦公自動(dòng)化系統(tǒng),要求能在運(yùn)行時(shí),支持在不同語(yǔ)言間切換(英文,中文,日文,德文,法文和西班牙文);實(shí)質(zhì)就是實(shí)現(xiàn)一個(gè)VB6的MUI程序.

這個(gè)需要的困難在于VB6顯示文本的標(biāo)準(zhǔn)控件(Label,Textbox等)不支持Unicode;但字符串在其內(nèi)部是按Unicode保存的,也就是說VB6本身是支持Unicode的.

VB6中,標(biāo)準(zhǔn)控件顯示字符串的過程如下:

1) 標(biāo)準(zhǔn)控件先將Unicode字符串轉(zhuǎn)換成ANSI字符串;

2) 標(biāo)準(zhǔn)控件嘗試將ANSI字符串轉(zhuǎn)換成其Font.Charset屬性中指定的字符集格式的字符串;如果轉(zhuǎn)換失敗,則顯示為問號(hào)(?).

具體可參照:Display Unicode Strings in Visual Basic 6.0.

因此,實(shí)現(xiàn)MUI程序的思路有兩種:

1) 將標(biāo)準(zhǔn)控件替換為能支持Unicode的控件;

2) 將資源文件中不同字符集的文本,轉(zhuǎn)換為ANSI格式,提供給標(biāo)準(zhǔn)控件使用;

第1)種方式可用 Forms 2.0 (fm20.dll);

第2)種方式,我在網(wǎng)上找到兩篇文章,但各有不足:

a) Auto-Detect Language and Display Unicode in VB6 TextBox and Label Controls;

ChilkatCharset2控件需購(gòu)買,具對(duì)日文的一些標(biāo)點(diǎn)符號(hào)(如全角句號(hào))不支持.

b) How To Convert from ANSI to Unicode & Unicode to ANSI for OLE

沒有測(cè)試成功.

下面,著重介紹我自己認(rèn)為比較成功的實(shí)現(xiàn),它使用了ADODB.Stream(msado25.tlb);其實(shí)現(xiàn)思路如下:

1) 將程序中用到的文本保存為Unicode格式的資源文件中;

之所以將資源文本保存為雙字節(jié)的Unicode格式,而非Utf8或Utf7格式,可省去從其它格式向VB6支持的Unicode格式轉(zhuǎn)換過程.

2) 將顯示文本的標(biāo)準(zhǔn)控件的Font.Charset,設(shè)置為程序要顯示語(yǔ)言所對(duì)應(yīng)的字符集,并設(shè)置一種支持這種字符集的字體到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.Font.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 = "windows-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

charset = "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)

根據(jù)要顯示的語(yǔ)言,利用ADODB.Stream將資源文件中Unicode格式保存的字符串轉(zhuǎn)換成操作系統(tǒng)的區(qū)域語(yǔ)言(Locale)支持字符集的字符串;

' 調(diào)用API來獲取操作系統(tǒng)默認(rèn)的區(qū)域語(yǔ)言設(shè)置(LocaleID)

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

' 將Unicode字符串,轉(zhuǎn)換為指定字符集的字節(jié)數(shù)組;

' 用于轉(zhuǎn)換用資源文件中讀取的文本;

Public Function ConvertStringToBytes(ByRef strText As String, charset As String) As Byte()

Dim objStream As ADODB.Stream

Dim data() As Byte

' init 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 '

objStream.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 '

轉(zhuǎn)換為指定字符集的字節(jié)數(shù)組,轉(zhuǎn)換為ANSI(即LocaleID)對(duì)應(yīng)的字符集的字符串; ' 用于將ConvertStringToBytes()返回的字節(jié)數(shù)組轉(zhuǎn)換為GetCharset()字符集的字符串.

Public Function ConvertBytesToString(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

objStream.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

'獲取操作系統(tǒng)默認(rèn)區(qū)域語(yǔ)言對(duì)應(yīng)的字符集

Public Function GetCharset() As String

Dim localeId As Long

Dim charset As String

' 獲取操作系統(tǒng)的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)

'保存資源文本中的文本的變量

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

Dim t As Long

' CkString是免費(fèi)的第三方組件,可自動(dòng)判定一個(gè)字符串所對(duì)應(yīng)的字符集

' 下載地址:http://www.chilkatsoft.com/download/CkString.zip

Dim g_Str As New CkString

g_Str.Str = s

'獲取資源文本所代表的字符集名稱,設(shè)置對(duì)應(yīng)的字體和字符集到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 '韓語(yǔ)

charset = "ks_c_5601-1987"

Text1.Font.Name = "GulimChe"

Text1.Font.charset = 129

ElseIf g_Str.NumCentralEuro > 0 Then '中歐語(yǔ)言

charset = "windows-1250"

Text1.Font.Name = "Arial"

Text1.Font.charset = 238

ElseIf g_Str.NumArabic > 0 Then '阿拉伯語(yǔ)

charset = "windows-1256"

Text1.Font.Name = "Traditional Arabic"

Text1.Font.charset = 178

ElseIf g_Str.NumGreek > 0 Then '希臘語(yǔ)

charset = "windows-1253"

Text1.Font.Name = "Arial"

Text1.Font.charset = 161

ElseIf g_Str.NumThai > 0 Then '泰語(yǔ)

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 '默認(rèn)值

charset = "windows-1252"

Text1.Font.charset = 0

Text1.Font.Name = "Arial"

End If

Dim bytes() As Byte

Dim g_OSCharset As String

'獲取操作系統(tǒng)默認(rèn)語(yǔ)言對(duì)應(yīng)的字符集

g_OSCharset = GetCharset()

'先將Unicode資源文本轉(zhuǎn)換成對(duì)應(yīng)的字節(jié)數(shù)組;

bytes = ConvertStringToBytes(s, charset)

'將字節(jié)數(shù)組轉(zhuǎn)換成ANSI(即默認(rèn)字符集)對(duì)應(yīng)的字符串

vbstr2 = ConvertBytesToString(bytes, g_OSCharset)

' 設(shè)置字符串到VB6的標(biāo)準(zhǔn)控件中

Me.Text1.Text = vbstr2 End Sub

更多信息請(qǐng)查看IT技術(shù)專欄