自拍偷在线精品自拍偷,亚洲欧美中文日韩v在线观看不卡

VB6實現(xiàn)MUI程序方法詳解

作者：Rickey Hu
開發(fā) 后端
本文將為大家介紹VB6實現(xiàn)MUI程序方法，主要出發(fā)點是作者所參與的一個實際應用案例。希望對大家有所幫助。

本文將為大家詳細講述的是VB6實現(xiàn)MUI程序方法，希望本文能給大家的日常開發(fā)工作帶來一些啟示。

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

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

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

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

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

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

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

1) 將標準控件替換為能支持Unicode的控件;

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

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

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

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

沒有測試成功.

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

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

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

2) 將顯示文本的標準控件的Font.Charset,設置為程序要顯示語言所對應的字符集,并設置一種支持這種字符集的字體到Font.Name屬性

  1.   If g_Str.NumJapanese > 0 Then 
  2.       charset = "Shift_JIS" 
  3.       Text1.Font.Name = "MS UI Gothic" 
  4.       Text1.Font.charset = 128  
  5.         
  6.   ElseIf g_Str.NumKorean > 0 Then 
  7.       charset = "ks_c_5601-1987" 
  8.       Text1.Font.Name = "GulimChe" 
  9.       Text1.Font.charset = 129  
  10.       
  11.  ElseIf g_Str.NumCentralEuro > 0 Then 
  12.      charset = "windows-1250" 
  13.      Text1.Font.Name = "Arial" 
  14.      Text1.Font.charset = 238  
  15.        
  16.  ElseIf g_Str.NumArabic > 0 Then 
  17.      charset = "windows-1256" 
  18.      Text1.Font.Name = "Traditional Arabic" 
  19.      Text1.Font.charset = 178  
  20.        
  21.  ElseIf g_Str.NumHebrew > 0 Then 
  22.      charset = "windows-1255" 
  23.      Text1.Font.Name = "David" 
  24.      Text1.Font.charset = 177  
  25.        
  26.  ElseIf g_Str.NumCyrillic > 0 Then 
  27.      charset = "windows-1251" 
  28.      Text1.Font.Name = "Arial" 
  29.      Text1.Font.charset = 204  
  30.        
  31.  ElseIf g_Str.NumGreek > 0 Then 
  32.      charset = "windows-1253" 
  33.      Text1.Font.Name = "Arial" 
  34.      Text1.Font.charset = 161  
  35.        
  36.  ElseIf g_Str.NumThai > 0 Then 
  37.      charset = "windows-874" 
  38.      Text1.Font.Name = "Angsana New" 
  39.      Text1.Font.charset = 222  
  40.        
  41.  ElseIf g_Str.NumChinese > 0 Then 
  42.      charset = "gb2312" 
  43.      Text1.Font.Name = "SimSun" 
  44.      Text1.Font.charset = 134  
  45.      ' An alternative is to use Big5:  
  46.      ' Text1.Font.Name = "MingLiu"  
  47.      'charset = "big5"  
  48.      'fontCh = 136  
  49.        
  50.  Else 
  51.      charset = "windows-1252" 
  52.      Text1.Font.charset = 0  
  53.     Text1.Font.Name = "Arial" 
  54. End If 

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

  1. ' 調(diào)用API來獲取操作系統(tǒng)默認的區(qū)域語言設置(LocaleID)  
  2.   Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long 
  3.     
  4.   ' 將Unicode字符串,轉(zhuǎn)換為指定字符集的字節(jié)數(shù)組;  
  5.   ' 用于轉(zhuǎn)換用資源文件中讀取的文本;  
  6.   Public Function ConvertStringToBytes(ByRef strText As String, charset As String) As Byte()  
  7.     
  8.       Dim objStream As ADODB.Stream  
  9.       Dim data() As Byte 
  10.        
  11.      ' init stream  
  12.      Set objStream = New ADODB.Stream  
  13.      objStream.charset = charset  
  14.      objStream.Mode = adModeReadWrite  
  15.      objStream.Type = adTypeText  
  16.      objStream.Open  
  17.        
  18.      ' write bytes into stream  
  19.      objStream.WriteText strText  
  20.      objStream.Flush  
  21.        
  22.      ' rewind stream and read text  
  23.      objStream.Position = 0  
  24.      objStream.Type = adTypeBinary  
  25.  '    objStream.Read 3 ' skip first 3 bytes as this is the utf-8 marker  
  26.      data = objStream.Read()  
  27.       
  28.      ' close up and return  
  29.      objStream.Close  
  30.      ConvertStringToUtf8Bytes = data  
  31.    
  32.  End Function 
  33.  ' 轉(zhuǎn)換為指定字符集的字節(jié)數(shù)組,轉(zhuǎn)換為ANSI(即LocaleID)對應的字符集的字符串;  
  34.  ' 用于將ConvertStringToBytes()返回的字節(jié)數(shù)組轉(zhuǎn)換為GetCharset()字符集的字符串.  
  35.  Public Function ConvertBytesToString(ByRef data() As Byte, charset As String) As String 
  36.    
  37.      Dim objStream As ADODB.Stream  
  38.      Dim strTmp As String 
  39.    
  40.        
  41.      ' init stream  
  42.      Set objStream = New ADODB.Stream  
  43.      objStream.charset = charset  
  44.      objStream.Mode = adModeReadWrite  
  45.     objStream.Type = adTypeBinary  
  46.      objStream.Open  
  47.        
  48.     ' write bytes into stream  
  49.      objStream.Write data  
  50.      objStream.Flush  
  51.       
  52.      ' rewind stream and read text  
  53.      objStream.Position = 0  
  54.      objStream.Type = adTypeText  
  55.      strTmp = objStream.ReadText  
  56.        
  57.      ' close up and return  
  58.      objStream.Close  
  59.      ConvertUtf8BytesToString = strTmp  
  60.    
  61.  End Function 
  62.    
  63.  '獲取操作系統(tǒng)默認區(qū)域語言對應的字符集  
  64.  Public Function GetCharset() As String 
  65.      Dim localeId As Long 
  66.      Dim charset As String 
  67.        
  68.      ' 獲取操作系統(tǒng)的LocaleId  
  69.      localeId = GetSystemDefaultLCID()  
  70.        
  71.      Select Case localeId  
  72.        
  73.          Case 1033  
  74.              charset = "windows-1252" 
  75.          Case 2052  
  76.              charset = "gb2312" 
  77.          Case 1041  
  78.              charset = "Shift_JIS" 
  79.          Case Else 
  80.              charset = "windows-1252" 
  81.      End Select 
  82.        
  83.      GetCharset = charset  
  84.  End Function 
  85.    
  86.  '顯示資源文本中的文本  
  87.  Private Sub DisplayText(filename As String)  
  88.    
  89.      '保存資源文本中的文本的變量  
  90.      Dim textBytes As Variant 
  91.      Dim f As New FileSystemObject  
  92.      Dim fs As TextStream  
  93.      '將Unicode文本讀取到變量中  
  94.      Set fs = f.OpenTextFile(filename, ForReading, False, TristateTrue)  
  95.    
  96.      Do While Not fs.AtEndOfStream  
  97.          textBytes = fs.ReadAll  
  98.     Loop 
  99.    
  100.     fs.Close  
  101.  
  102.     ' Convert to a Unicode string:  
  103.     Dim s As String 
  104.     s = textBytes  
  105.     Dim t As Long 
  106.     ' CkString是免費的第三方組件,可自動判定一個字符串所對應的字符集  
  107.     ' 下載地址:http://www.chilkatsoft.com/download/CkString.zip  
  108.     Dim g_Str As New CkString  
  109.      g_Str.Str = s  
  110.       
  111.     '獲取資源文本所代表的字符集名稱,設置對應的字體和字符集到textbox上  
  112.     Dim charset As String 
  113.     If g_Str.NumJapanese > 0 Then  '日文  
  114.         charset = "Shift_JIS" 
  115.         Text1.Font.Name = "MS UI Gothic" 
  116.         Text1.Font.charset = 128  
  117.           
  118.     ElseIf g_Str.NumKorean > 0 Then '韓語  
  119.         charset = "ks_c_5601-1987" 
  120.         Text1.Font.Name = "GulimChe" 
  121.         Text1.Font.charset = 129  
  122.           
  123.     ElseIf g_Str.NumCentralEuro > 0 Then '中歐語言  
  124.         charset = "windows-1250" 
  125.         Text1.Font.Name = "Arial" 
  126.         Text1.Font.charset = 238  
  127.           
  128.     ElseIf g_Str.NumArabic > 0 Then '阿拉伯語  
  129.         charset = "windows-1256" 
  130.         Text1.Font.Name = "Traditional Arabic" 
  131.         Text1.Font.charset = 178  
  132.     ElseIf g_Str.NumGreek > 0 Then  '希臘語  
  133.         charset = "windows-1253" 
  134.         Text1.Font.Name = "Arial" 
  135.         Text1.Font.charset = 161  
  136.     ElseIf g_Str.NumThai > 0 Then  '泰語  
  137.         charset = "windows-874" 
  138.         Text1.Font.Name = "Angsana New" 
  139.         Text1.Font.charset = 222  
  140.     ElseIf g_Str.NumChinese > 0 Then '中文  
  141.         charset = "gb2312" 
  142.         Text1.Font.Name = "SimSun" 
  143.         Text1.Font.charset = 134  
  144.        ' 繁體則使用Big5:  
  145.        ' Text1.Font.Name = "MingLiu"  
  146.         'charset = "big5"  
  147.         'Text1.Font.charset = 136  
  148.     Else '默認值  
  149.         charset = "windows-1252" 
  150.         Text1.Font.charset = 0  
  151.         Text1.Font.Name = "Arial" 
  152.     End If 
  153.  
  154.     Dim bytes() As Byte 
  155.     Dim g_OSCharset As String 
  156.     '獲取操作系統(tǒng)默認語言對應的字符集  
  157.    g_OSCharset = GetCharset()  
  158.     '先將Unicode資源文本轉(zhuǎn)換成對應的字節(jié)數(shù)組;  
  159.    bytes = ConvertStringToBytes(s, charset)  
  160.     '將字節(jié)數(shù)組轉(zhuǎn)換成ANSI(即默認字符集)對應的字符串  
  161.     vbstr2 = ConvertBytesToString(bytes, g_OSCharset)  
  162.     ' 設置字符串到VB6的標準控件中  
  163.     Me.Text1.Text = vbstr2  
  164. End Sub 

原文標題：用VB6來實現(xiàn)MUI程序的方法

鏈接;http://www.cnblogs.com/beiguren/archive/2010/03/08/1680713.html

責任編輯：彭凡 來源： 博客園
VB6
相關推薦

2009-03-04 09:39:32

Windows 7微軟VB6程序

2010-03-29 09:04:51

VB.NET

2009-10-29 10:21:46

VB.NET變量適用范

2009-10-16 18:01:06

VB.NET調(diào)用Win

2010-01-07 10:28:04

VB.NET實現(xiàn)接口

2010-01-18 09:55:30

VB.NET刪除空白行

2010-01-21 10:48:18

VB.NET擴展方法

2010-01-21 09:53:55

VB.NET獲取程序運

2009-10-13 10:21:58

VB.NET實現(xiàn)Web

2009-11-03 09:26:13

VB.NET方法

2011-05-20 16:34:35

VB.NET

2010-01-13 18:17:00

VB.NET通信程序

2009-10-28 15:18:46

VB.NET網(wǎng)絡應用

2009-11-02 14:35:52

VB.NET打包

2010-01-19 16:55:46

VB.NET聲明語句

2009-10-26 15:45:43

VB.NET類構造

2009-10-23 12:53:25

VB.NET語言

2010-01-19 14:50:20

VB.NET集合

2010-01-18 19:04:29

VB.NET組件疊加

2010-01-19 09:36:06

VB.NET Func
點贊
收藏

51CTO技術棧公眾號