让你的VB程序支持多国语言的切换.doc

让你的VB程序支持多国语言的切换以前做过一个vb的小项目，客户需要软件同时能够支持中文和英文，为此写了一个自动语言切换的模块来用，不敢独享，拿来给大家参考一下。模块 MdlLanMgr.bas ：Attribute VB_Name = ModuleLanMgrOption Explicit Private Declare Function GetPrivateProfileString& Lib kernel32 Alias GetPrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)Private LanguageFileName As String选择语言Public Sub SelectLanguage(LanName As String)On Error Resume NextSelect Case LanName 根据用户选择的语言的名称，分别读取不同的语言文件Case English:LanguageFileName = AddSplash(App.Path) & English.LanCase Chinese(Simplify):LanguageFileName = AddSplash(App.Path) & ChineseS.LanCase Chinese(Traditional):LanguageFileName = AddSplash(App.Path) & ChineseT.LanCase Else:LanguageFileName = End SelectEnd Sub翻译文字Public Function TranslateStr(sSection As String, sKey As String, sDefVal As String) As StringDim sValue As String * 128Dim N As LongOn Error Resume NextTranslateStr = sDefValIf Not FileExists(LanguageFileName) ThenExit FunctionEnd IfN = GetPrivateProfileString(sSection, sKey, sDefVal, sValue, 127, LanguageFileName)If N 0 ThenTranslateStr = Left(sValue, N)End IfEnd Function自动转换Form上的一些基本控件（也可自行扩展，目前支持CommandButton,Label,OptionButton,CheckButton）Public Sub TranslateForm(Frm As Form)Dim I As LongOn Error Resume NextFrm.Caption = TranslateStr(Frm.Name, Caption, Frm.Caption)For I = 0 To Frm.Controls.Count - 1If (TypeOf Frm.Controls(I) Is CommandButton) Or (TypeOf Frm.Controls(I) Is Label) _Or (TypeOf Frm.Controls(I) Is OptionButton) Or (TypeOf Frm.Controls(I) Is CheckBox) ThenFrm.Controls(I).Caption = TranslateStr(Frm.Name, Frm.Controls(I).Name, Frm.Controls(I).Caption)End IfNext IEnd Sub调用很简单，在作为程序主窗口的Form中这么写：Private Sub Form_Load()On Error GoTo ErrFunLanguage = EnglishIf FileExists(AddSplash(App.Path) & Sys.Ini) Then 从程序的配置文件中读取上次设置的语言文件名称Open AddSplash(App.Path) & Sys.Ini For Input As #1Input #1, LanguageClose #1End IfSelectLanguage (Language) 设置全局变量，指定使用的语言 TranslateForm Me 自动转换界面文字ErrFun:Resume NextEnd Sub其它Form中都用类似的写法，在FormLoad中调用TranslateForm(Me)的方法将Form上的Button，Label等切换语言文字。最后，用到的语言文件的格式像这样：FormMainCaption=PCTV PlayerLabelCmd1=Start PlayLabelCmd2=Edit Play ListLabelCmd3=Options.LabelCmd4=HelpLabelCmd5=ExitLabelCmd6=Exit & Shut down computerFormEditCaption=Edit PlayList.Cmd1=Add ProgramCmd2=Edit ProgramCmd3=Del ProgramCmd4=Move UpCmd5=Move DownCmd6=Quit EditListView.Title1=IDListView.Title2=TimeListView.Title3=TypeListView.Title4=Title由于VB语言（这里指VB6.0及以前版本，VB.NET属于另一种概念了）还是挺弱的，所以也只能将就这做到这个程度了，如果要增加一些其它控件或者其它属性的自动文字转换支持，那么你必须自行扩展TranslateForm(