This commit is contained in:
SchreiberM 2020-11-20 12:05:32 +01:00
parent 0eeb6ff237
commit cbef1ceebc

View File

@ -148,13 +148,13 @@ Public Class frmMain
My.Settings.Save() My.Settings.Save()
End If End If
Try Try
Dim cultureInfo As System.Globalization.CultureInfo Dim oCultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE) oCultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT oCultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
Thread.CurrentThread.CurrentCulture = cultureInfo Thread.CurrentThread.CurrentCulture = oCultureInfo
Thread.CurrentThread.CurrentUICulture = cultureInfo Thread.CurrentThread.CurrentUICulture = oCultureInfo
CultureInfo.DefaultThreadCurrentCulture = cultureInfo CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
CultureInfo.DefaultThreadCurrentUICulture = cultureInfo CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo
Catch ex As Exception Catch ex As Exception