|
Imports System.Resources
Imports System.Globalization
Imports System.Threading
Namespace Michaels
Public Class StringRes
Const RES_Folder As String = "..\ressourcen"
Const RESX_de As String = RES_Folder & "\language.de-DE.resx"
Const RESX_gb As String = RES_Folder & "\language.en-GB.resx"
Const RESX_hu As String = RES_Folder & "\language.hu-HU.resx"
Function Read_ResX(ByVal language As String, ByVal key _
As String) As String
Dim reader As ResXResourceReader
Select Case language
Case "de"
reader = New ResXResourceReader(RESX_de)
Case "gb"
reader = New ResXResourceReader(RESX_gb)
Case "hu"
reader = New ResXResourceReader(RESX_hu)
End Select
Dim id As IDictionaryEnumerator = reader.GetEnumerator()
Dim d As DictionaryEntry
Dim i As Int32
For Each d In reader
If d.Key.ToString = key Then
Return d.Value.ToString()
End If
Next d
reader.Close()
End Function
Sub Make_ResX(ByVal language As String)
Select Case language
Case "de"
Dim w As New ResXResourceWriter(RESX_de)
w.AddResource("greeting", _
"Guten Tag, Sie sprechen deutsch!")
w.AddResource("question", "Möchten Sie")
w.AddResource("numbers", "einen, zwei, drei oder vier")
w.AddResource("apple", "Äpfel?")
w.AddResource("costs", "1000 Stück kosten:")
w.AddResource("end", "Danke und auf Wiedersehen!")
w.AddResource("me", "Mehrsprachige Anwendung")
w.AddResource("rb1", "Deutsch")
w.AddResource("rb2", "Englisch")
w.AddResource("rb3", "Ungarisch")
w.AddResource("bt1", "&Beenden")
w.AddResource("gp1", "Wählen Sie Ihre Sprache")
w.AddResource("flag", "deutsch.gif")
w.Close()
Case "gb"
Dim w As New ResXResourceWriter(RESX_gb)
w.AddResource("greeting", _
"Hello, you are speaking English!")
w.AddResource("question", "Do you want")
w.AddResource("numbers", "one, two, three or four")
w.AddResource("apple", "apples?")
w.AddResource("costs", "1000 pieces costs:")
w.AddResource("end", "Thank you and good-bye!")
w.AddResource("me", "Multilingual Application")
w.AddResource("rb1", "German")
w.AddResource("rb2", "English")
w.AddResource("rb3", "Hungary")
w.AddResource("bt1", "&End")
w.AddResource("gp1", "Choose your language")
w.AddResource("flag", "britain.gif")
w.Close()
Case "hu"
Dim w As New ResXResourceWriter(RESX_hu)
w.AddResource("greeting", _
"Jo napot, maga beszèl magyarul!")
w.AddResource("question", "Alkar maga")
w.AddResource("numbers", "egy, kettö, hàrom vagy nègy")
w.AddResource("apple", "almàt?")
w.AddResource("costs", "Ezer darab kerül:")
w.AddResource("end", "Köszönöm ès viszontlàtàsra!")
w.AddResource("me", "Több nyelvi programm")
w.AddResource("rb1", "Nèmet")
w.AddResource("rb2", "Angol")
w.AddResource("rb3", "Magyar")
w.AddResource("bt1", "&Befejezni")
w.AddResource("gp1", "Vàlasza a maga nyelvèt:")
w.AddResource("flag", "ungar.gif")
w.Close()
End Select
Exit Sub
End Sub
End Class
End Namespace
|
|