一个简单的中英文双版本


【实例说明】
    现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,那么这个功能在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