show error hint

Author: stax76

OpenWithPPGUI/MainForm.vb

@@ -730,6 +730,12 @@ Public Class MainForm
         If Not BlockEvents AndAlso Not SelectedItem Is Nothing Then
             SelectedItem.Path = tbPath.Text
         End If
+
+        If tbPath.Text.Contains(":\") AndAlso Not File.Exists(tbPath.Text) Then
+            tbPath.BackColor = Color.OrangeRed
+        Else
+            tbPath.ResetBackColor()
+        End If
     End Sub
 
     Sub tbArgs_TextChanged(sender As Object, e As EventArgs) Handles tbArguments.TextChanged
@@ -1101,6 +1107,8 @@ Public Class MainForm
     End Sub
 
     Sub tbIcon_TextChanged(sender As Object, e As EventArgs) Handles tbIcon.TextChanged
+        Dim match = Regex.Match(tbIcon.Text, "^(.+),(\d+)$")
+
         If Not BlockEvents AndAlso Not SelectedItem Is Nothing Then
             If File.Exists(tbIcon.Text) AndAlso tbIcon.Text.ToLower.EndsWith(".exe") OrElse
                 tbIcon.Text.ToLower.EndsWith(".dll") Then
@@ -1115,14 +1123,21 @@ Public Class MainForm
             If File.Exists(tbIcon.Text) Then
                 SelectedItem.IconFile = tbIcon.Text
                 SelectedItem.IconIndex = 0
-            ElseIf Regex.IsMatch(tbIcon.Text, "^(.+),(\d+)$") Then
-                Dim match = Regex.Match(tbIcon.Text, "^(.+),(\d+)$")
+            ElseIf match.Success Then
                 SelectedItem.IconFile = match.Groups(1).Value
                 SelectedItem.IconIndex = CInt(match.Groups(2).Value)
             Else
                 SelectedItem.IconFile = ""
                 SelectedItem.IconIndex = 0
             End If
         End If
+
+        Dim iconFile = If(match.Success, match.Groups(1).Value, tbIcon.Text)
+
+        If iconFile <> "" AndAlso Not File.Exists(iconFile) Then
+            tbIcon.BackColor = Color.OrangeRed
+        Else
+            tbIcon.ResetBackColor()
+        End If
     End Sub
 End Class