MS_29012016

app/DD-Record-Organiser/frmConfig_Basic.vb

@@ -1,4 +1,7 @@
-Public Class frmConfig_Basic
+Imports System.Threading
+Imports System.Globalization
+
+Public Class frmConfig_Basic
     Dim formloaded As Boolean = False
     Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
         Try
@@ -186,6 +189,7 @@
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
             Case 1
+                cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
             Case 2
                 Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID, True)
                 If Not SCAN_folderwatch Is Nothing Then
@@ -277,7 +281,7 @@
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving Exclusion files:")
         End Try
-       
+
     End Sub
 
     Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
@@ -304,4 +308,49 @@
                 btnstartstop2.Image = My.Resources.bell_go
         End Select
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim result As MsgBoxResult
+        If USER_LANGUAGE = "de-DE" Then
+            result = MessageBox.Show("Wollen Sie die Applikationssprache nun auf '" & cmbLanguage.Text & "' ändern?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Else
+            result = MessageBox.Show("Would You like to change Your application language to '" & cmbLanguage.Text & "' ?", "Confirmation required:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        End If
+
+        If result = MsgBoxResult.Yes Then
+            formloaded = False
+            Try
+                Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & cmbLanguage.Text & "' WHERE GUID = " & USER_GUID
+                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)
+                    Else
+                        MsgBox("The language was changed successfully!", MsgBoxStyle.Information)
+
+                    End If
+                    LANGUAGE_CHANGED = True
+                End If
+            Catch ex As Exception
+
+            End Try
+            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
 End Class