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

add general error handling & logging

Browse Source
This commit is contained in:
Jonathan Jenne 2020-10-14 14:38:51 +02:00
parent bc46ccadb3
commit 3f97727cee
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -89,7 +89,6 @@ Public Class frmMain
formopenClose = True formopenClose = True
LOGGER.Debug("Initializing MainForm....") LOGGER.Debug("Initializing MainForm....")
' Create helper to save/load expanded GroupColumns at runtime ' Create helper to save/load expanded GroupColumns at runtime
RefreshHelper = New RefreshHelper(GridView_Docs, "GUID") RefreshHelper = New RefreshHelper(GridView_Docs, "GUID")
@ -1964,16 +1963,20 @@ Public Class frmMain
End Sub End Sub
Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize
If formShown = False Then Try
Exit Sub If formShown = False Then
End If Exit Sub
End If
If WindowState = FormWindowState.Maximized Then If WindowState = FormWindowState.Maximized Then
My.Settings.frmMainWindowState = "Maximized" My.Settings.frmMainWindowState = "Maximized"
ElseIf WindowState = FormWindowState.Normal Then ElseIf WindowState = FormWindowState.Normal Then
My.Settings.frmMainWindowState = "Normal" My.Settings.frmMainWindowState = "Normal"
End If End If
My.Settings.Save() My.Settings.Save()
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniGrundeinstellung.ItemClick Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniGrundeinstellung.ItemClick
Try Try
@ -2058,8 +2061,6 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Timer5Mins Error: {ex.Message}") LOGGER.Warn($"Timer5Mins Error: {ex.Message}")
End Try End Try
End Sub End Sub
Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork
GetBaseData("bwBasicData") GetBaseData("bwBasicData")
@ -2205,7 +2206,7 @@ Public Class frmMain
tslblObjectCount.Text = objectCount_Descr tslblObjectCount.Text = objectCount_Descr
tslblObjectCount.ForeColor = Color.DarkOrange tslblObjectCount.ForeColor = Color.DarkOrange
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex.Message)
End Try End Try
End Sub End Sub