效果
那么先画一个组合框,在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
向这样的格式写内容
那么先画一个组合框,在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
向这样的格式写内容