.NET多語系程式(二)
Introduction
本篇將介紹.NET多語系程式的寫法 ，下面會利用資料庫來達到多語系的功能。
學習目標
- .NET多語程式撰寫
- MyDatabase類別庫基本使用
- 用資料庫實現多語功能
操作步驟
Step1.首先準備個資料庫，內含所有語系的資料
Step2.切換語系時，從資料庫中抓取對應的顯示字串
Dim db As MyDatabase.UseDB.AccessDB
Dim dt As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
db = New MyDatabase.UseDB.AccessDB("Language.mdb")
dt = db.GetDataTable("Select * from lan")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Text = dt.Select("Key='Title_TW'")(0).Item("Value")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Text = dt.Select("Key='Title_CH'")(0).Item("Value")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Text = dt.Select("Key='Title_EN'")(0).Item("Value")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Text = dt.Select("Key='Title_JP'")(0).Item("Value")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Text = dt.Select("Key='Title_K'")(0).Item("Value")
End Sub
到此一個多語程式就完成了，執行效果如下：
