Lykke
26.07.2010, 13:35
Heyho,
ich poste hier mal nen Source-Code. Ich hab ihn schon in nem anderen Forum gepostet, also nicht wundern, hab ich geschrieben :D
Public Sub Translate(ByVal File As String)
Dim temp() As String
temp = System.IO.File.ReadAllLines(File) 'Die Datei einlesen
Dim i As Integer
Dim t As Array
For i = 0 To UBound(temp)
t = Split(temp(i), ";") 'Splittet den String
Me.Controls(t(0)).text = t(1) 't(0) = ControlName t(1) = Übersetzung
Next
End Sub
Diese Funktion übersetzt die Form. Nun brauchen wir aber noch eine
Sprachdatei die so aufgebaut ist:
z.b. Englisch.txt:
Button1;Start
Button2;Exit
also als erstes steht der Control-Name und dann die Übersetzung,
diese beiden Strings werden durch ein ";" getrennt.
Aufruf:
Translate(application.StartupPath & "\englisch.txt")Viele Grüße
ich poste hier mal nen Source-Code. Ich hab ihn schon in nem anderen Forum gepostet, also nicht wundern, hab ich geschrieben :D
Public Sub Translate(ByVal File As String)
Dim temp() As String
temp = System.IO.File.ReadAllLines(File) 'Die Datei einlesen
Dim i As Integer
Dim t As Array
For i = 0 To UBound(temp)
t = Split(temp(i), ";") 'Splittet den String
Me.Controls(t(0)).text = t(1) 't(0) = ControlName t(1) = Übersetzung
Next
End Sub
Diese Funktion übersetzt die Form. Nun brauchen wir aber noch eine
Sprachdatei die so aufgebaut ist:
z.b. Englisch.txt:
Button1;Start
Button2;Exit
also als erstes steht der Control-Name und dann die Übersetzung,
diese beiden Strings werden durch ein ";" getrennt.
Aufruf:
Translate(application.StartupPath & "\englisch.txt")Viele Grüße