ms check Objectverweis null

This commit is contained in:
SchreiberM 2022-11-07 18:31:55 +01:00
parent 752027ee0a
commit 88bcb4f8fb

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)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
_NotificationsTable = pNotificationsTable
_GDPictureKey = pGDPictureKey
_FormCaption = pCaption
_Environment = pEnvironment
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
FormHelper = New FormHelper(pLogConfig, Me)
Try
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim cultureInfo As System.Globalization.CultureInfo
cultureInfo = New System.Globalization.CultureInfo(_Environment.User.Language)
cultureInfo.DateTimeFormat.ShortDatePattern = _Environment.User.DateFormat
If Not IsNothing(_Environment.User.DateFormat) Then
cultureInfo.DateTimeFormat.ShortDatePattern = _Environment.User.DateFormat
End If
Thread.CurrentThread.CurrentCulture = cultureInfo
Thread.CurrentThread.CurrentUICulture = cultureInfo
Catch ex As Exception
End Try
' 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
Private Sub frmNotification_Startup_Load(sender As Object, e As EventArgs) Handles Me.Load