资源文件使用&多语言切换方法

 1、使用资源文件前,初始控件方法



 

2、使用资源文件后,初始控件方法

      语言切换方法：在Form的属性中，Localizable设为True，表示当前为对象生成可本地化的代码，再相应的选择Language属性，对窗体进行重新赋值为相应语言的版本，此时要注意在程序中的文本部分要获取当地语言信息，进行判断运行过程中显示哪个国家的语言。



 
3、在程序运行过程中设置语言的方法：

System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en", False)    '设置EN环境
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.GetCultureInfo("en")  '设置EN环境
Dim res As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RPG_Server))
res.ApplyResources(Me, "$this")
res.ApplyResources(Me.btnBuildUpdateLink, "btnBuildUpdateLink")
res.ApplyResources(Me.mnuSet_WriteFlashType_AMFW, "mnuSet_WriteFlashType_AMFW")
………………

4、在启动时的选择，根据系统的当前区域配置，自动适应语言：

Public Sub New()
Dim gstrAppCulture As String
Dim tenmDialogResult As DialogResult
tenmDialogResult = MessageBox.Show("请选择语言", _
MessageBoxButtons.OKCancel, MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
If tenmDialogResult = Windows.Forms.DialogResult.OK Then
gstrAppCulture = "zh-tw"
Else
gstrAppCulture = "en"
End If
System.Threading.Thread.CurrentThread.CurrentUICulture = _
New System.Globalization.CultureInfo(gstrAppCulture, False) ‘人为选择
‘System.Threading.Thread.CurrentThread.CurrentUICulture = System.Threading.Thread.CurrentThread.CurrentCulture  ’自动选择,根据当前语言环境
InitializeComponent() ’在这个过程中已经调用正确的资源文件
End Sub