效果![](https://imgsa.baidu.com/forum/w%3D580/sign=7c352763bd7eca80120539efa1229712/93d562d9f2d3572cdffb1d9c8713632762d0c35e.jpg)
那么先画一个组合框,在Click事件中写;
If Combo1.Text = "English" Then
'MsgBox RText("language\English.lan", 1)
Form1.Caption = RText("language\English.lan", 1)
Command1.Caption = RText("language\English.lan", 2)
cmdCommand2.Caption = RText("language\English.lan", 3)
lbl.Caption = RText("language\English.lan", 4)
Form2.lblCopyright2018.Caption = RText("language\English.lan", 5)
jjj.Caption = RText("language\English.lan", 6)
Form2.Caption = RText("language\English.lan", 7)
showerr = RText("language\English.lan", 8)
okk.Caption = RText("language\English.lan", 9)
' Jpg rar merge
Else
Form1.Caption = RText("language\Chinese.lan", 1)
Command1.Caption = RText("language\Chinese.lan", 2)
cmdCommand2.Caption = RText("language\Chinese.lan", 3)
lbl.Caption = RText("language\Chinese.lan", 4)
Form2.lblCopyright2018.Caption = RText("language\Chinese.lan", 5)
jjj.Caption = RText("language\Chinese.lan", 6)
Form2.Caption = RText("language\Chinese.lan", 7)
showerr = RText("language\Chinese.lan", 8)
okk.Caption = RText("language\Chinese.lan", 9)
End If
还需要在Combo1.list中写两行内容
English
Chinese
然后新建一个文件夹language
向这样的格式写内容
![](https://imgsa.baidu.com/forum/w%3D580/sign=5c37040ec78065387beaa41ba7dca115/fbddf2d3572c11df66c83e636e2762d0f703c25e.jpg)
![](https://imgsa.baidu.com/forum/w%3D580/sign=7c352763bd7eca80120539efa1229712/93d562d9f2d3572cdffb1d9c8713632762d0c35e.jpg)
那么先画一个组合框,在Click事件中写;
If Combo1.Text = "English" Then
'MsgBox RText("language\English.lan", 1)
Form1.Caption = RText("language\English.lan", 1)
Command1.Caption = RText("language\English.lan", 2)
cmdCommand2.Caption = RText("language\English.lan", 3)
lbl.Caption = RText("language\English.lan", 4)
Form2.lblCopyright2018.Caption = RText("language\English.lan", 5)
jjj.Caption = RText("language\English.lan", 6)
Form2.Caption = RText("language\English.lan", 7)
showerr = RText("language\English.lan", 8)
okk.Caption = RText("language\English.lan", 9)
' Jpg rar merge
Else
Form1.Caption = RText("language\Chinese.lan", 1)
Command1.Caption = RText("language\Chinese.lan", 2)
cmdCommand2.Caption = RText("language\Chinese.lan", 3)
lbl.Caption = RText("language\Chinese.lan", 4)
Form2.lblCopyright2018.Caption = RText("language\Chinese.lan", 5)
jjj.Caption = RText("language\Chinese.lan", 6)
Form2.Caption = RText("language\Chinese.lan", 7)
showerr = RText("language\Chinese.lan", 8)
okk.Caption = RText("language\Chinese.lan", 9)
End If
还需要在Combo1.list中写两行内容
English
Chinese
然后新建一个文件夹language
向这样的格式写内容
![](https://imgsa.baidu.com/forum/w%3D580/sign=5c37040ec78065387beaa41ba7dca115/fbddf2d3572c11df66c83e636e2762d0f703c25e.jpg)