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
原文链接：https://www.f2er.com/vb/262337.html