【IT168 技术文档】 一、开发中英（简、繁）双版本

　现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 VB 是如何实现得呢的：

    1、首先通过 API 函数GetSystemDefaultLCID 判断系统的语言

Option Explicit
Dim lang As String
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "当前系统为：中文繁体", , "语言"
Case &H804
MsgBox "当前系统为：中文简体", , "语言"
lang = "1"
Case &H409
MsgBox "当前系统为：英文", , "语言"
lang = "2"
End Select
End Sub

    2、然后程序就可以加载保存在资源文件（这里我们就是使用的这种方法）、注册表、INI 文件、文本文件或其他文件中的各类字符串，以达到达到实现多种语言的目的。
　⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

　⑵在 VB 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料：
　　标识号 中文（中国）
　　101 例子
　　102 中文
　　103 英文
　　201 Ensample
　　202 Chinese
　　203 English

　⑶保存资源文件，写如下代码：（自定义装载字符的函数 LoadString）

Sub LoadString()
Me.Caption = LoadResString(Int(lang & "01"))
Command1(0).Caption = LoadResString(Int(lang & "02"))
Command1(1).Caption = LoadResString(Int(lang & "03"))
End Sub