VB 实现国际化

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!