EgtCAM5 :

- gestito caso senza lingue o con lingua errata che impediva l'avvio del programma.
2019-03-13 07:39:28 +00:00
parent 78e92ae908
commit ce21b83729
2 changed files with 12 additions and 6 deletions
@@ -52,7 +52,13 @@ Friend Module OptionModule
         nIndex += 1
         ReadLanguage = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
      End While
+      If nIndex = 1 Then
+         EgtOutLog("Error missing languages section in Config.ini")
+         MessageBox.Show( "Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         End
+      End If
      ' Inizializzo la lingua corrente
+      OptionModule.m_SelectedLanguage = OptionModule.m_LanguageList(0)
      Dim sMsgName As String = String.Empty
      GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgName)
      For Each Language In OptionModule.m_LanguageList