【实例说明】 现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,那么这个功能在VB是如何实现得呢的?
【编程思路】 将所有各种语言的字符串加载保存到资源文件,以达到实现多种语言的目的。
【设计步骤】
1.新建一个标准工程,创建一个新窗体,默认名为Form1。
2.在Form1窗体新建菜单(标题:语言|名称:mnuLang)以及三子个菜单(标题:中文|名称:mnuLangChinese;标题:-|名称:mnuLangSep;标题:英文|名称:mnuLangEnglish)。
3.在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”。
4.在 VB 资源编辑器窗口中,点击“编辑字符串表格”输入如下资料:
标识号 中文(中国)
101 例子
102 中文
103 英文
104 语言
201 Ensample
202 Chinese
203 English
204 Language
5.源程序 [素材源程序下载]
Option Explicit
Private sysLanguage As String
'自定义语言变换过程
Private Sub LoadString()
Me.Caption = LoadResString(Int(sysLanguage & "01"))
mnuLang.Caption = LoadResString(Int(sysLanguage & "04"))
mnuLangChinese.Caption = LoadResString(Int(sysLanguage & "02"))
mnuLangEnglish.Caption = LoadResString(Int(sysLanguage & "03"))
End Sub
Private Sub Form_Load()
mnuLangChinese_Click
End Sub
Private Sub mnuLangChinese_Click()
mnuLangChinese.Checked = True
mnuLangEnglish.Checked = False
sysLanguage = "1"
LoadString
End Sub
Private Sub mnuLangEnglish_Click()
mnuLangEnglish.Checked = True
mnuLangChinese.Checked = False
sysLanguage = "2"
LoadString
End Sub
|