1. 利用资源文件保存国际化列表
2.“外接程序”--“外接程序管理器”--“VB6 资源编辑器”就可以编辑资源文件
3.部分代码
'窗体加载
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
'英文
Case &H409
lang = "1"
'中文简体
Case &H804
lang = "2"
'日文
Case &H411
lang = "3"
End Select
Call LoadString
End Sub
'实现程序多语言化
Sub LoadString()
Me.Caption = LoadResString(Int(lang & "01"))
Me.Command1.Caption = LoadResString(Int(lang & "01"))
Me.Command2.Caption = LoadResString(Int(lang & "03"))
End Sub