level 13

准备文件,先新建3个文本文件(数量按照↑的语言数量),名称尽量使用英文
打开文本文档,输入内容:
有个简便的方法,因为繁体只是比中文多些笔画而字的意思并未改变,所以,可以使用翻译工具互转提高效率:
保存后在资源管理器里选择“显示所有文件”:
在窗体里有个resx的资源文件,双击打开它:
在下拉框里选择“文件”,然后“添加资源”,选择之前的3个文本文档:
记住添加后把所有文本文档选中后,把“访问修饰符”改为“Friend”:
切换到代码,输入代码:
'界面语言WriteOnly
Property ProLanguage
As String
Set(value
As String)
Select Case value
Case "English" : Set_Language(
My.Resources.
Main.en.Split(vbCrLf, 7,
StringSplitOptions.RemoveEmptyEntries))
Case "中文简体" : Set_Language(
My.Resources.
Main.cn.Split(vbCrLf, 7,
StringSplitOptions.RemoveEmptyEntries))
Case "中文繁体" : Set_Language(
My.Resources.
Main.hk.Split(vbCrLf, 7,
StringSplitOptions.RemoveEmptyEntries))
End Select
End Set
End Property
'语言的设置
Sub Set_Language(LanguageLine
As String())
'赋值
toolfile.Text = LanguageLine(0) : toolexit.Text = LanguageLine(1)
tooledit.Text = LanguageLine(2) : tooltool.Text = LanguageLine(3)
toolhelp.Text = LanguageLine(4) : languagesetbox.Text = LanguageLine(5)
languageset.Text = LanguageLine(6)
End Sub
'点击“应用”按钮时
Sub languageset_Click(sender
As Object, e
As EventArgs)
Handles languageset.Click
ProLanguage = languagesetitems.Text
End Sub


