MS Anpassungen Structure Nodes etc
This commit is contained in:
@@ -798,15 +798,20 @@ Public Class frmMain
|
||||
Public Sub New()
|
||||
Dim splash As New frmSplash()
|
||||
splash.ShowDialog()
|
||||
If ERROR_INIT <> "INVALID USER" Then
|
||||
Dim cultureInfo As System.Globalization.CultureInfo
|
||||
cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
|
||||
cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
|
||||
Thread.CurrentThread.CurrentCulture = cultureInfo
|
||||
Thread.CurrentThread.CurrentUICulture = cultureInfo
|
||||
CultureInfo.DefaultThreadCurrentCulture = cultureInfo
|
||||
CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
|
||||
End If
|
||||
Try
|
||||
If ERROR_INIT <> "INVALID USER" Then
|
||||
Dim cultureInfo As System.Globalization.CultureInfo
|
||||
cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
|
||||
cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
|
||||
Thread.CurrentThread.CurrentCulture = cultureInfo
|
||||
Thread.CurrentThread.CurrentUICulture = cultureInfo
|
||||
CultureInfo.DefaultThreadCurrentCulture = cultureInfo
|
||||
CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Reference in New Issue
Block a user