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

ZooFlow: Improve error messages

Browse Source
This commit is contained in:
Jonathan Jenne 2021-09-13 14:27:50 +02:00
parent 69c81cf2fc
commit 1de0e47069
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -858,27 +858,42 @@ Public Class frmFlowForm
oState.CurrentClipboardContents = ClipboardContents
If oState.MonitoringActive = False Then
Logger.Info("Clipboard Watcher is not active!")
Dim oMessage As String = "Clipboard Watcher is not active!"
Logger.Info(oMessage)
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Exit Sub
End If
If oState.UserProfiles Is Nothing Then
Logger.Warn("User Profiles is empty!")
Dim oMessage As String = "User Profiles are empty!"
Logger.Info(oMessage)
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Exit Sub
End If
If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
Logger.Warn("Profile Processes is empty!")
Dim oMessage As String = "Profile Processes are empty!"
Logger.Info(oMessage)
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Exit Sub
End If
If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then
Logger.Warn("Profile Processes is empty!")
Dim oMessage As String = "Profile Processes are empty!"
Logger.Info(oMessage)
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Exit Sub
End If
If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then
Logger.Warn("Profile Processes is empty!")
Dim oMessage As String = "Profile Processes are empty!"
Logger.Info(oMessage)
MsgBox(oMessage, MsgBoxStyle.Critical, Text)
Exit Sub
End If
@ -894,7 +909,7 @@ Public Class frmFlowForm
oState.MatchTreeView)
Catch ex As Exception
Logger.Error(ex)
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Fehlermeldung: " & ex.Message, MsgBoxStyle.Critical, Text)
End Try
Try