【教程】界面语言的设置
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
level 13
[汗]想法不错
2012年11月03日 16点11分 5
level 13
我也想过这么做,但多语言现阶段觉得没必要,而且工作量有些大
2012年11月04日 05点11分 6
level 3
如果把源码上传来就好了。
2013年05月25日 01点05分 7
level 10
[gmoney]LZ的VB里面字体十分个性~~能否教下我怎么改字体?
2013年07月15日 01点07分 8
level 11
2013年07月15日 20点07分 9
[大拇指]感激不尽!这样我的编程界面就能生动起来了~~
2013年07月16日 02点07分
level 1
这个字体的名字叫啥?好漂亮啊
2013年07月20日 15点07分 10
level 5
先留着 以后再用
2015年01月29日 15点01分 11
level 1
记下了,以后参考
2015年11月06日 02点11分 12
level 10
谢谢
2016年11月17日 15点11分 13
1