MS_17.03

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -338,12 +338,10 @@ Public Class frmConfig_Basic
                 USER_LANGUAGE = cmbLanguage.Text
 
                 If ClassDatabase.Execute_non_Query(update, True) = True Then
-                    SetLanguage()
                     If USER_LANGUAGE = "de-DE" Then
-                        MsgBox("Die Sprache wurde erfolgreich geändert!", MsgBoxStyle.Information)
+                        MsgBox("Die Sprache wurde erfolgreich geändert und nach einem Neustart angewendet!", MsgBoxStyle.Information)
                     Else
-                        MsgBox("The language was changed successfully!", MsgBoxStyle.Information)
-
+                        MsgBox("The language was changed successfully and will be set after App-Restart", MsgBoxStyle.Information)
                     End If
                     LANGUAGE_CHANGED = True
                 End If
@@ -353,21 +351,6 @@ Public Class frmConfig_Basic
             formloaded = True
         End If
     End Sub
-    Public Sub SetLanguage()
-        Dim sz = Me.Size
-        Dim pt = Me.Location
-        Dim de = System.Globalization.CultureInfo.CurrentUICulture
-        'Neue Sprache festlegen und entfernen aller Controls
-        Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
-        Me.Controls.Clear()
-        'Me.Events.Dispose()
-        InitializeComponent()
-
-        'Wiederherstellen der Fensterposition
-        Me.Size = sz
-        Me.Location = pt
-    End Sub
-
     Private Sub chkbxUserAut_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserAut.CheckedChanged
         If chkbxUserAut.Checked Then
             Me.txtPasswort.Enabled = False