MS12.02.2016

Global_Indexer/frmStart.vb

@@ -11,33 +11,33 @@ Public Class frmStart
     Public _lizenzManager As ClassLicenseManager
     Dim loaded As Boolean = False
     Dim WithEvents HotKey As New clsHotkey(Me)
-    Public Sub SetLanguage()
-        Dim de = System.Globalization.CultureInfo.CurrentUICulture
-        'Neue Sprache festlegen und entfernen aller Controls
+    'Public Sub SetLanguage()
+    '    Dim de = System.Globalization.CultureInfo.CurrentUICulture
+    '    'Neue Sprache festlegen und entfernen aller Controls
 
 
-        Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
-        Me.Controls.Clear()
+    '    Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
+    '    Me.Controls.Clear()
 
-        'Me.Events.Dispose()
+    '    'Me.Events.Dispose()
 
-        InitializeComponent()
-        tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
-        Try
-            Dim Ic As Icon = New Icon(Application.StartupPath & "\DD_Icons_ICO_GLOBIX_128.ico")
-            If Not IsNothing(Ic) Then
-                Me.Icon = Ic
-            End If
+    '    InitializeComponent()
+    '    tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
+    '    Try
+    '        Dim Ic As Icon = New Icon(Application.StartupPath & "\DD_Icons_ICO_GLOBIX_128.ico")
+    '        If Not IsNothing(Ic) Then
+    '            Me.Icon = Ic
+    '        End If
 
-        Catch ex As Exception
-            ClassLogger.Add(">> Icon file could not be read: " & ex.Message, False)
-        End Try
+    '    Catch ex As Exception
+    '        ClassLogger.Add(">> Icon file could not be read: " & ex.Message, False)
+    '    End Try
 
-        'Me.i()
-        'Wiederherstellen der Fensterposition
-        'Me.Size = sz
-        'Me.Location = pt
-    End Sub
+    '    'Me.i()
+    '    'Wiederherstellen der Fensterposition
+    '    'Me.Size = sz
+    '    'Me.Location = pt
+    'End Sub
 
     Private Const mSnapOffset As Integer = 35
     Private Const WM_WINDOWPOSCHANGING As Integer = &H46
@@ -389,7 +389,9 @@ Public Class frmStart
     End Sub
 
     Public Sub New()
-
+        Dim splash As New frmSplash()
+        splash.ShowDialog()
+        Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -413,8 +415,8 @@ Public Class frmStart
           
             'Dim sql = sql_UserID
 
-            Dim splash As New frmSplash()
-            splash.ShowDialog()
+            'Dim splash As New frmSplash()
+            'splash.ShowDialog()
 
             'Lizenz abgellaufen, überprüfen ob User Admin ist
             If LICENSE_COUNT < UserLoggedin Then
@@ -447,7 +449,7 @@ Public Class frmStart
                     End If
                 End If
             End If
-
+            ' SetLanguage()
             If CURRENT_USER_IS_ADMIN = True Then
                 ToolStripSeparator1.Visible = True
                 AdministrationToolStripMenuItem.Visible = True
@@ -460,8 +462,6 @@ Public Class frmStart
             Load_Hotkeys()
             Me.Opacity = 30
 
-            'tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
-
         Catch ex As Exception
             MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -562,16 +562,22 @@ Public Class frmStart
         frmConfig_Basic.ShowDialog()
         'Wurde die Sprache in der Konfiguration geändert
         If LANGUAGE_CHANGED = True Then
-            'Sprache anpassen
-            SetLanguage()
-            LANGUAGE_CHANGED = False
-            If CURRENT_USER_IS_ADMIN = True Then
-                ToolStripSeparator1.Visible = True
-                AdministrationToolStripMenuItem.Visible = True
+            If USER_LANGUAGE = "de-DE" Then
+                MsgBox("Zur letzendlichen Neukonfiguration der Sprache ist ein Neustart notwendig!", MsgBoxStyle.Information)
             Else
-                ToolStripSeparator1.Visible = False
-                AdministrationToolStripMenuItem.Visible = False
+                MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information)
             End If
+            Application.Restart()
+            ''Sprache anpassen
+            'SetLanguage()
+            'LANGUAGE_CHANGED = False
+            'If CURRENT_USER_IS_ADMIN = True Then
+            '    ToolStripSeparator1.Visible = True
+            '    AdministrationToolStripMenuItem.Visible = True
+            'Else
+            '    ToolStripSeparator1.Visible = False
+            '    AdministrationToolStripMenuItem.Visible = False
+            'End If
         End If
         Start_Folderwatch()
         Me.TopMost = True
@@ -647,6 +653,7 @@ Public Class frmStart
         If My.Settings.AppTerminate = True Then
             Me.Close()
         End If
+        ' SetLanguage()
         If START_INCOMPLETE = True Then
             If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then
 
@@ -666,7 +673,7 @@ Public Class frmStart
         Opacity = 0.65
 
         'Sprache anpassen
-        SetLanguage()
+
         Start_Folderwatch()
         ClassWindowLocation.LoadFormLocationSize(Me)
     End Sub