在.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#的版本請檢視以下連結：