Deutsch nach Englisch

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von AliveDevil.

    Deutsch nach Englisch

    Hallo,

    ich habe in einer form buttons labels usw wo man eben was reinschreiben kann nun möchte ich ein button machen das wenn man draufklickt das alle buttons labels usw. das der text darin auf englisch ist(Spracheinstellung).

    gruß vber

    Soll das übersetzt werden oder meinst du eine Sprachauswahl für dein Programm? In der eigentlichen Beschreibung sehe ich leider nur zwei Punkte und nur einen Großbuchstaben, sorry.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Ich bin mal so nett:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Runtime.Serialization.Formatters.Binary
    3. Imports System.IO.Compression
    4. Public Class Form1
    5. Dim MyTrans As Language
    6. Dim Languages As New List(Of Language)
    8. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    9. For Each item In Languages
    10. Serializer.SaveObjekt("Languages\" & item.Localization & ".xml", item, True)
    11. Next
    12. End Sub
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. If Not IO.Directory.Exists("Languages") Then
    16. IO.Directory.CreateDirectory("Languages")
    17. End If
    18. If Not IO.File.Exists("Languages\de-de.xml") Then
    19. Serializer.SaveObjekt("Languages\de-de.xml", New Language("de-de", "Wechsle zu Englisch", "Dies ist ein deutscher Satz."), True)
    20. End If
    21. If Not IO.File.Exists("Languages\en-us.xml") Then
    22. Serializer.SaveObjekt("Languages\en-us.xml", New Language("en-us", "Switch to german", "This is an english sentence."), True)
    23. End If
    24. For Each item In IO.Directory.GetFiles("Languages")
    25. Dim tmp As Language = Nothing
    26. tmp = CType(Serializer.LoadObjekt(item, True), Language)
    27. Languages.Add(tmp)
    28. Next
    29. MyTrans = (From item In Languages Where item.Localization = "de-de" Select item)(0)
    30. ChangeLanguage()
    31. End Sub
    33. Sub ChangeLanguage()
    34. Label1.Text = MyTrans.TextLabel
    35. Button1.Text = MyTrans.TextButton
    36. End Sub
    38. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    39. If MyTrans.Localization = "de-de" Then
    40. MyTrans = (From item In Languages Where item.Localization = "en-us" Select item)(0)
    41. ElseIf MyTrans.Localization = "en-us" Then
    42. MyTrans = (From item In Languages Where item.Localization = "de-de" Select item)(0)
    43. End If
    44. ChangeLanguage()
    45. End Sub
    46. End Class
    48. <Serializable()> _
    49. Class Language
    50. Public Property Localization As String
    51. Public Property TextButton As String
    52. Public Property TextLabel As String
    53. Sub New()
    54. Localization = ""
    55. TextButton = ""
    56. TextLabel = ""
    57. End Sub
    58. Sub New(ByVal localization As String, ByVal textbutton As String, ByVal textlabel As String)
    59. Me.Localization = localization
    60. Me.TextButton = textbutton
    61. Me.TextLabel = textlabel
    62. End Sub
    63. End Class
    64. Class Serializer
    65. Public Shared Sub SaveObjekt(Of Typ)(ByVal Pfad As String, ByVal Objekt As Typ, Optional ByVal Komprimieren As Boolean = True)
    66. Dim FileStream As Stream = New FileStream(Pfad, FileMode.OpenOrCreate)
    67. Dim BinFor As New BinaryFormatter
    68. If Komprimieren = True Then FileStream = New GZipStream(FileStream, CompressionMode.Compress)
    69. BinFor.Serialize(FileStream, Objekt)
    70. FileStream.Close()
    71. End Sub
    72. Public Shared Function LoadObjekt(ByVal Pfad As String, Optional ByVal Komprimieren As Boolean = True) As Object
    73. If System.IO.File.Exists(Pfad) = True Then
    74. Dim FileStream As Stream = New FileStream(Pfad, FileMode.OpenOrCreate)
    75. Dim bf As New BinaryFormatter
    76. If Komprimieren = True Then FileStream = New GZipStream(FileStream, CompressionMode.Decompress)
    77. Dim tmp As Object = bf.Deserialize(FileStream)
    78. FileStream.Close()
    79. Return tmp
    80. Else
    81. Return Nothing
    82. End If
    83. End Function
    84. End Class


    Was du wissen musst:
    Jedesmal wenn du die Sprache wechselst, musst du auch die Sachen erneut laden ( Sub ChangeLanguage() )
    Ich habe es mir Serialization gelöst, wie du es machen willst, ist mir egal.
    Ich benutze [VB 2008] Easy Serializer
    Bei jedem schließen wird die Datei gespeichert und auf den letzten Stand gesetzt.
    Du brauchst zwei Buttons. Das .NET Framework 3.5 und ein Verweis auf System.LINQ.

Facebook
Telefonspende