vb怎么制作多语言（英文，中文）程序

现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 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

⑷怎么样一个简单的中英双版本的程序就做出来了，如果把 lang 的值设置为 1，则显示中文，如果把 lang 的值设置为 2，则显示英文。

写一个过程，把所有控件的caption属性重写一遍

比如：

sub ch2en()

form1.caption="english"

button1.caption="enbtn"

end sub

sub en2ch()

form1.caption="中文"

button1.caption="中中中"

end sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Print KeyAscii

Select Case KeyAscii

Case 65 To 90

MsgBox "英文字母不能输入"

KeyAscii = 0

Case 97 To 122

MsgBox "英文字母不能输入"

KeyAscii = 0

End Select

End Sub

---