詳解VB6實現MUI程式

詳解VB6實現MUI程式

 　　之前,我負責一個VB6編寫的辦公自動化系統,要求能在運行時,支援在不同語言間切換(英文,中文,日文,德文,法文和西班牙文);實質就是實現一個VB6的MUI程式.

　　這個需要的困難在於VB6顯示文本的標準控制項(Label,Textbox等)不支援Unicode;但字串在其內部是按Unicode儲存的,也就是說VB6本身是支援Unicode的.

　　VB6中,標準控制項顯示字串的過程如下:

　　1) 標準控制項先將Unicode字串轉換成ANSI字串;

　　2) 標準控制項嘗試將ANSI字串轉換成其Font.Charset屬性中指定的字元集格式的字串;如果轉換失敗,則顯示為問號(?).

　　具體可參照: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控制項需購買,具對日文的一些標點符號(如全形句號)不支援.

　　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,設定為程式要顯示語言所對應的字元集,並設定一種支援這種字元集的字型到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)

　　根據要顯示的語言,利用ADODB.Stream將資源檔中Unicode格式儲存的字串轉換成作業系統的地區語言(Locale)支援字元集的字串;

　　' 調用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 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 '

　　轉換為指定字元集的位元組數組,轉換為ANSI(即LocaleID)對應的字元集的字串; ' 用於將ConvertStringToBytes()返回的位元組數群組轉換為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

　　'擷取作業系統預設區域語言對應的字元集

　　Public Function GetCharset() As String

　　Dim localeId As Long

　　Dim charset As String

　　' 擷取作業系統的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是免費的第三方組件,可自動判定一個字串所對應的字元集

　　' :http://www.chilkatsoft.com/download/CkString.zip

　　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 '韓語

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

　　Dim g_OSCharset As String

　　'擷取作業系統預設語言對應的字元集

　　g_OSCharset = GetCharset()

　　'先將Unicode資源文本轉換成對應的位元組數組;

　　bytes = ConvertStringToBytes(s, charset)

　　'將位元組數群組轉換成ANSI(即預設字元集)對應的字串

　　vbstr2 = ConvertBytesToString(bytes, g_OSCharset)

　　' 設定字串到VB6的標準控制項中

　　Me.Text1.Text = vbstr2 End Sub