การทำฟอร์มหลายภาษา VB.NET

mozza

การทำฟอร์มหลายภาษา VB.NET

FrmMain :: หน้าจอหลัก

1. Imports System.IO
   
2. Public Class FrmMain
   
3.     Public ListViewLangItm As ListViewItem
   
4.     Public itm As ListViewItem
   
5.     Dim ListViewLangStyleIndex As Byte = 0
   
6.     Public DbListViewStyle() As SByte = {0, 1, 2, 3}    ''// 0 = Large , 1 = Details , 2 = List , 3 = Tiles
   
7. 
   
8.     Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
9.         'ตั้งค่าการแสดงผลของ ListView.
   
10.         ListViewLang.MultiSelect = False
    
11.         ListViewLang.FullRowSelect = True
    
12.         ListViewLang.HideSelection = False
    
13. 
    
14.         'ซ่อนปุ่มบันทึก.
    
15.         Me.BtnSave.Visible = False
    
16. 
    
17.         'อ่านค่าภาษาที่บันทึกไว้ในไฟล์ตั้งค่าโปรแกรม.
    
18.         AppSelectedLanguage = XML.ReadXML(AppConfig, "GUI", "Language")
    
19. 
    
20.         'กำหนดค่าแหล่งที่อยู่ของไฟล์ภาษา.
    
21.         AppLanguagePath = AppLangDir & "" & AppSelectedLanguage.TrimStart & ".xml"
    
22. 
    
23.         'อ่านค่าภาษาเพื่อแสดงผล.
    
24.         Call Me.LoadLanguages()
    
25. 
    
26.         'แสดงผลภาษาไปยัง Control ต่าง ๆ.
    
27.         Call ModLanguage.SetGuiLang()
    
28.     End Sub
    
29. 
    
30.     ''Private Sub SelecteLstViewItem(ByVal sRef As String, ByRef lvw As ListView)
    
31.     ''    lvw.Focus()
    
32.     ''    lvw.Select()
    
33.     ''    Dim x As Integer
    
34. 
    
35.     ''    For x = 0 To lvw.Items.Count - 1
    
36.     ''        If lvw.Items(x).Text = sRef Then
    
37.     ''            lvw.Items(x).Selected = True
    
38. 
    
39.     ''            Exit For '-- if only 1 record   
    
40.     ''        End If
    
41.     ''    Next
    
42.     ''End Sub
    
43. 
    
44.     Public Sub LoadLanguages()
    
45.         ''// Define Columns's Size.
    
46.         ColH.Width = 100
    
47.         ColN.Width = 150
    
48.         ColP.Width = (Me.ListViewLang.Width - (ColH.Width + ColN.Width))
    
49. 
    
50.         ''// Clear ListView Items.
    
51.         ListViewLang.Items.Clear()
    
52. 
    
53.         ''// Define ListView Properties.
    
54.         ListViewLang.HeaderStyle = ColumnHeaderStyle.Nonclickable
    
55. 
    
56.         ''// Set ListView Style.
    
57.         Try
    
58.             ''// 0 = Large , 1 = Details , 2 = List , 3 = Tiles
    
59.             Select Case IO.File.Exists(AppConfig)
    
60.                 Case True
    
61.                     ListViewLangStyleIndex = CSByte(XML.ReadXML(AppConfig, "GUI", "ListViewLang"))
    
62.                 Case False
    
63.                     ListViewLangStyleIndex = 3
    
64.             End Select
    
65.             ''// Apply Style.
    
66.             Select Case ListViewLangStyleIndex
    
67.                 Case 0 : ListViewLang.View = View.LargeIcon
    
68.                 Case 1 : ListViewLang.View = View.Details
    
69.                 Case 2 : ListViewLang.View = View.List
    
70.                 Case 3 : ListViewLang.View = View.Tile
    
71.             End Select
    
72.         Catch ex As Exception
    
73.             ListViewLang.View = View.Tile
    
74.         End Try
    
75. 
    
76.         'ตั้งค่าการแสดงผลของ ListView.
    
77.         ListViewLang.MultiSelect = False
    
78.         ListViewLang.FullRowSelect = True
    
79.         ListViewLang.HideSelection = False
    
80. 
    
81.         ''// Loading Language.
    
82.         ModLanguage.LoadLang()
    
83. 
    
84.         ''// If not found Lang Directoy then exit.
    
85.         If Not IO.Directory.Exists(ModLanguage.AppLangDir) Then Me.BtnSave.Enabled = False : Exit Sub
    
86. 
    
87.         Dim supportedExtensions As String = "*.xml" '"*.xml,*.aaa,*.bbb,*.ccc,*.ddd"
    
88.         Dim files As String() = Directory.GetFiles(ModLanguage.AppLangDir, "*.*", SearchOption.TopDirectoryOnly)
    
89.         Array.Sort(files)
    
90. 
    
91.         ''// Search for *.xml files and show info of files.
    
92.         For Each fi As String In files
    
93.             If supportedExtensions.Contains(Path.GetExtension(fi)) Then
    
94.                 Dim str(3) As String
    
95. 
    
96.                 str(0) = " " & Path.GetFileNameWithoutExtension(fi.ToString)
    
97.                 str(1) = XML.ReadXML(fi.ToString, str(0), "Language")
    
98.                 str(2) = fi.ToString
    
99. 
    
100.                 ''// Set Icon.
     
101.                 Select Case str(0).TrimStart.ToUpper
     
102.                     Case "EN" : itm = New ListViewItem(str, 0)
     
103.                     Case "TH" : itm = New ListViewItem(str, 1)
     
104.                 End Select
     
105.                 ''// Add New Item with icon.
     
106.                 ListViewLangItm = ListViewLang.Items.Add(itm)
     
107.             End If
     
108.         Next
     
109. 
     
110.         ''// Select setting value.
     
111.         Select Case ListViewLang.Items.Count
     
112.             Case Is > 0
     
113.                 Me.BtnSave.Enabled = True
     
114.                 For b As Integer = 0 To ListViewLang.Items.Count - 1
     
115.                     If ListViewLang.Items(b).SubItems(0).Text = AppSelectedLanguage.TrimStart Then
     
116.                         ListViewLang.Items(b).Selected = True
     
117.                         Exit For
     
118.                     End If
     
119.                 Next b
     
120.             Case Else
     
121.                 'Nothing.
     
122.         End Select
     
123.     End Sub
     
124.     Private Sub ListViewLang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewLang.SelectedIndexChanged
     
125.         ''// Choose Language.
     
126.         If TryCast(sender, ListView).SelectedItems.Count > 0 Then
     
127.             ''// Set App Language.
     
128.             AppSelectedLanguage = TryCast(sender, ListView).SelectedItems.Item(0).SubItems(0).Text.TrimStart
     
129. 
     
130.             ''// Set App Language Path.
     
131.             AppLanguagePath = TryCast(sender, ListView).SelectedItems.Item(0).SubItems(2).Text
     
132. 
     
133.             ''// Setup Gui Language.
     
134.             ModLanguage.SetGuiLang()
     
135. 
     
136.             Me.BtnSave.Visible = True
     
137.         End If
     
138.     End Sub
     
139.     Private Sub ContextIcoLargeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextIcoLargeToolStripMenuItem.Click
     
140.         Me.ListViewLang.View = View.LargeIcon
     
141.         Me.SaveListViewStyle()
     
142.     End Sub
     
143.     Private Sub ContextIcoDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextIcoDetailsToolStripMenuItem.Click
     
144.         Me.ListViewLang.View = View.Details
     
145.         Me.SaveListViewStyle()
     
146.     End Sub
     
147.     Private Sub ContextIcoListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextIcoListToolStripMenuItem.Click
     
148.         Me.ListViewLang.View = View.List
     
149.         Me.SaveListViewStyle()
     
150.     End Sub
     
151.     Private Sub ContextIcoTilesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextIcoTilesToolStripMenuItem.Click
     
152.         Me.ListViewLang.View = View.Tile
     
153.         Me.SaveListViewStyle()
     
154.     End Sub
     
155.     Public Sub SaveListViewStyle()
     
156.         ''// Save Settings.
     
157.         Dim StyleIdx As SByte = 0
     
158.         Try
     
159.             Select Case IO.File.Exists(AppConfig)
     
160.                 Case True
     
161.                     ''// Save Style.
     
162.                     Select Case Me.ListViewLang.View
     
163.                         Case View.LargeIcon : StyleIdx = DbListViewStyle(0)
     
164.                         Case View.Details : StyleIdx = DbListViewStyle(1)
     
165.                         Case View.List : StyleIdx = DbListViewStyle(2)
     
166.                         Case View.Tile : StyleIdx = DbListViewStyle(3)
     
167.                     End Select
     
168.                     XML.WriteXML(AppConfig, "GUI", "ListViewLang", Format(StyleIdx, "F0"))
     
169.                 Case False
     
170.                     ''// 0 = Large , 1 = Details , List.
     
171.                     XML.WriteXML(AppConfig, "GUI", "ListViewLang", Format(DbListViewStyle(0), "F0"))
     
172.             End Select
     
173.         Catch ex As Exception
     
174.             'Do Not Save.
     
175.         Finally
     
176.             StyleIdx = 0
     
177.         End Try
     
178.     End Sub
     
179.     Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
     
180.         ''// Save Settings.
     
181.         Try
     
182.             Select Case IO.File.Exists(AppConfig)
     
183.                 Case True : XML.WriteXML(AppConfig, "GUI", "Language", AppSelectedLanguage.TrimStart)
     
184.                 Case False : XML.WriteXML(AppConfig, "GUI", "Language", AppLangSources(0))
     
185.             End Select
     
186.             MessageBox.Show("Saved.", "Language Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
187.         Catch ex As Exception
     
188.             MessageBox.Show(ex.Message.ToString, "Language Settings Error !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
189.         End Try
     
190.         Me.LoadLanguages()
     
191.     End Sub
     
192. 
     
193.     Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
     
194.         Application.Exit()
     
195.     End Sub
     
196. 
     
197.     Private Sub MenuAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuAbout.Click
     
198.         FrmAbout.ShowDialog()
     
199.     End Sub
     
200. End Class

คัดลอกไปที่คลิปบอร์ด

Code ของฟอร์มอื่น ๆ ดูภายในไฟล์โปรเจคนะครับ
หมายเหตุ : ผมทำไว้แค่ 2 ภาษานะครับ
               สาเหตุที่แยกไฟล์ภาษาออกมานอกโปรแกรมก็เพื่อให้แก้ไขข้อความภายในภาษาได้ง่ายขึ้น
               และสามารถคัดลอกไฟล์ภาษา แล้วเปลี่ยนเป็นภาษาอื่น ๆ ได้อีกโดยไม่ต้องคอมไพล์โปรแกรมใหม่ (รอพัฒนาต่อครับ)

ดาวน์โหลดไฟล์

thawatchai-sena

ขอบคุณมากครับ