【教程】界面语言的设置
vb2010吧
全部回复
仅看楼主
level 13
百百mp3 楼主
现在很多软件都有修改语言的设置了...所以嘛...用net换个语言口味还是不错的费得都在看中文...由于net使用的是Unicode编码,所以嘛...不像有些编程语言,要设置地区才可以使用其他国家语言...
在网上我看到很多例子,有的使用数组,有的使用数据库,但都是使用赋值实现改变界面语言的。下面我来说说用资源文件改变界面语言。
2012年11月03日 11点11分 1
level 13
百百mp3 楼主
首先嘛,新建工程,设计界面^_^
准备文件,先新建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

2012年11月03日 11点11分 2
level 13
百百mp3 楼主
嗯,就是这样...完...
2012年11月03日 11点11分 4
1