VB.net Winform多國語言的實現

 在.net中實現多國語言的方法其實是很簡單的。

下面就做一個示例跟大家一步一步地介紹：

首先新建一個VB.net的項目。項目名稱隨意。

建立一個MDI表單FrmMain和一個Form1表單。

然後新建一個鋪助類LanguageHelper.vb

 

表單設計如下：

 

 

 中文語言特性界面設計如下：

 

 

英文語言特性界面設計如下：

 

最後看一下資源文件：

 

下面來看實現的代碼：

首先，我們創建一個鋪助類，爲切換語言提供一些方法。

 Imports System Imports System.Collections.Generic Imports System.Text Imports System.ComponentModel Imports System.Threading Imports System.Windows.Forms Imports System.Globalization Public Class LanguageHelper ''' <summary> ''' 改變程序當前使用的語言特性 ''' </summary> ''' <param name="languageName">語言名稱</param> ''' <param name="frm">Form類別</param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function SetLanguage(ByVal languageName As String, ByVal frm As Form) As Boolean Try '改變當前線程的UI資源文件 Thread.CurrentThread.CurrentUICulture = CultureInfo.GetCultureInfo(languageName) '改變當前線程的資源文件 Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo(languageName) '創建一個資源管理器 Dim res As ComponentResourceManager = New ComponentResourceManager(frm.GetType) '將資源文件的內容更新至表單上 $this在資源文件中表示窗體本身。 res.ApplyResources(frm, "$this") '遞歸更新資源文件的內容到表單控件上 ApplyResouce(frm, res) Return True Catch ex As Exception Return False End Try End Function ''' <summary> ''' 更新資源文件的內容到表單控件上 ''' </summary> ''' <param name="control">要更新的控件</param> ''' <param name="res">資源文件管理器</param> ''' Private Shared Sub ApplyResouce(ByVal control As Control, ByVal res As ComponentResourceManager) For Each c As Control In control.Controls res.ApplyResources(c, c.Name) ApplyResouce(c, res) If c.GetType().IsSubclassOf(GetType(ToolStrip)) Then ApplyResouce(CType(c, ToolStrip), res) End If Next End Sub ''' <summary> ''' set language for toolstrip all child item ''' </summary> ''' <param name="toolstrip"></param> ''' <param name="resources"></param> Private Shared Sub ApplyResouce(ByVal toolstrip As ToolStrip, ByVal resources As ComponentResourceManager) If toolstrip.Items.Count > 0 Then For Each item As ToolStripItem In toolstrip.Items ApplyResouce(item, resources) Next End If End Sub ''' <summary> ''' 遞歸更新Menu的子菜單 ''' </summary> ''' <param name="item"></param> ''' <param name="resources"></param> Private Shared Sub ApplyResouce(ByVal item As ToolStripItem, ByVal resources As ComponentResourceManager) resources.ApplyResources(item, item.Name) If (item.GetType.IsSubclassOf(GetType(ToolStripDropDownItem))) Then Dim ditem As ToolStripDropDownItem = CType(item, ToolStripDropDownItem) If ditem.DropDownItems.Count > 0 Then For Each sitem As ToolStripItem In ditem.DropDownItems ApplyResouce(sitem, resources) Next End If End If End Sub End Class

 

再來，MDI表單實現的代碼如下：

 Imports System.Globalization Imports System.Threading Imports Microsoft.Win32 Public Class FrmMain Private Sub mnuChinese_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuChinese.Click Try mnuEnglish.Checked = False mnuChinese.Checked = True changeLanguage("zh-CN") Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub mnuEnglish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEnglish.Click Try mnuChinese.Checked = False mnuEnglish.Checked = True changeLanguage("en-US") Catch ex As Exception MsgBox(ex.Message) End Try End Sub ''' <summary> ''' 切換語言的時候，如果有打開子窗體，那麼我們需要同時更新MDI子窗體 ''' </summary> ''' <param name="languageName"></param> ''' <remarks></remarks> Private Sub changeLanguage(ByVal languageName As String) Try LanguageHelper.SetLanguage(languageName, Me) For Each frm As Form In Me.MdiChildren LanguageHelper.SetLanguage(languageName, frm) Next Catch ex As Exception Throw ex End Try End Sub Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click Dim frm As New Form1() frm.MdiParent = Me frm.Show() End Sub End Class

 

From1表單是作爲一個子表單供測試用的就不必寫實現代碼喇！^-^

避免篇幅過長，程序運行的截圖我就不貼出來了！

如需要找C#的版本請查看以下鏈接：

http://happyoldbear.blog.51cto.com/231048/43049

C#示例下載：http://download.csdn.net/source/1807232

VB.Net示例下載：http://download.csdn.net/source/1807230