AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ms check Objectverweis null

Browse Source
This commit is contained in:
SchreiberM 2022-11-07 18:31:55 +01:00
parent 752027ee0a
commit 88bcb4f8fb
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
GUIs.Common/frmNotification_Startup.vb
View File

@ -44,25 +44,30 @@ Public Class frmNotification_Startup
Public Sub New(pNotificationsTable As DataTable, pLogConfig As LogConfig, pGDPictureKey As String, pCaption As String, pEnvironment As DigitalData.Modules.ZooFlow.Environment) Public Sub New(pNotificationsTable As DataTable, pLogConfig As LogConfig, pGDPictureKey As String, pCaption As String, pEnvironment As DigitalData.Modules.ZooFlow.Environment)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
_NotificationsTable = pNotificationsTable
_GDPictureKey = pGDPictureKey
_FormCaption = pCaption
_Environment = pEnvironment
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
FormHelper = New FormHelper(pLogConfig, Me)
Try Try
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim cultureInfo As System.Globalization.CultureInfo Dim cultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo(_Environment.User.Language) cultureInfo = New System.Globalization.CultureInfo(_Environment.User.Language)
If Not IsNothing(_Environment.User.DateFormat) Then
cultureInfo.DateTimeFormat.ShortDatePattern = _Environment.User.DateFormat cultureInfo.DateTimeFormat.ShortDatePattern = _Environment.User.DateFormat
End If
Thread.CurrentThread.CurrentCulture = cultureInfo Thread.CurrentThread.CurrentCulture = cultureInfo
Thread.CurrentThread.CurrentUICulture = cultureInfo Thread.CurrentThread.CurrentUICulture = cultureInfo
Catch ex As Exception Catch ex As Exception
End Try End Try
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
FormHelper = New FormHelper(pLogConfig, Me)
_NotificationsTable = pNotificationsTable
_GDPictureKey = pGDPictureKey
_FormCaption = pCaption
_Environment = pEnvironment
End Sub End Sub
Private Sub frmNotification_Startup_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmNotification_Startup_Load(sender As Object, e As EventArgs) Handles Me.Load