资源描述:
《让你的vb程序支持多国语言的切换》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、让你的VB程序支持多国语言的切换 以前做过一个vb的小项目,客户需要软件同时能够支持中文和英文,为此写了一个自动语言切换的模块来用,不敢独享,拿来给大家参考一下。 模块MdlLanMgr.bas:AttributeVB_Name="ModuleLanMgr"OptionExplicit PrivateDeclareFunctionGetPrivateProfileString&Lib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicat
2、ionNameAsString,ByVallpKeyNameAsString,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)PrivateLanguageFileNameAsString'选择语言PublicSubSelectLanguage(LanNameAsString) OnErrorResumeNext SelectCaseLanName'根据用户
3、选择的语言的名称,分别读取不同的语言文件 Case"English": LanguageFileName=AddSplash(App.Path)&"English.Lan" Case"Chinese(Simplify)": LanguageFileName=AddSplash(App.Path)&"ChineseS.Lan" Case"Chinese(Traditional)": LanguageFileName=AddSplash(App.Path)&"ChineseT.Lan"
4、 CaseElse: LanguageFileName="" EndSelectEndSub'翻译文字PublicFunctionTranslateStr(sSectionAsString,sKeyAsString,sDefValAsString)AsString DimsValueAsString*128 DimNAsLong OnErrorResumeNext TranslateStr=sDefVal IfNotFileExists(LanguageFileName)Then E
5、xitFunction EndIf N=GetPrivateProfileString(sSection,sKey,sDefVal,sValue,127,LanguageFileName) IfN>0Then TranslateStr=Left(sValue,N) EndIfEndFunction'自动转换Form上的一些基本控件(也可自行扩展,目前支持CommandButton,Label,OptionButton,CheckButton)PublicSubTranslateForm(FrmAs
6、Form) DimIAsLong OnErrorResumeNext Frm.Caption=TranslateStr(Frm.Name,"Caption",Frm.Caption) ForI=0ToFrm.Controls.Count-1 If(TypeOfFrm.Controls(I)IsCommandButton)Or(TypeOfFrm.Controls(I)IsLabel)_ Or(TypeOfFrm.Controls(I)IsOptionButton)Or(TypeOfFrm
7、.Controls(I)IsCheckBox)Then Frm.Controls(I).Caption=TranslateStr(Frm.Name,Frm.Controls(I).Name,Frm.Controls(I).Caption) EndIf NextIEndSub 调用很简单,在作为程序主窗口的Form中这么写:PrivateSubForm_Load() OnErrorGoToErrFun Language="English" IfFileExists(AddSplash(App.
8、Path)&"Sys.Ini")Then'从程序的配置文件中读取上次设置的语言文件名称 OpenAddSplash(App.Path)&"Sys.Ini"ForInputAs#1 Input#1,Language Close#1 EndIf SelectLanguage(Language)'设置全局变量,指定使用的语言 TranslateFormMe'自动转换界面文字 ErrFun: ResumeNextEndSub 其它Form中都用类似的写法,在Form