more tweaks

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -55,13 +55,9 @@ Public Class frmControlCapture
                 txtControlName.Text = oControl.ControlName
                 ControlName = oControl.ControlName
             End If
-
-
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox($"Control Name konnte nicht ausgelesen werden!{vbNewLine}Dies kann ein temporärer Fehler sein. Bitte versuchen Sie es noch einmal.", MsgBoxStyle.Exclamation, Text)
-        Finally
-            Logger.EndBlock()
         End Try
 
         Try
@@ -96,9 +92,9 @@ Public Class frmControlCapture
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox($"Control Koordinaten konnten nicht ausgelesen werden!{vbNewLine}Dies kann ein temporärer Fehler sein. Bitte versuchen Sie es noch einmal.", MsgBoxStyle.Exclamation, Text)
-        Finally
-            Logger.EndBlock()
         End Try
+
+        UpdateOKButton()
     End Sub
 
     Public Shared Function GetBoundsString(TopLeft As RectangleInfo, TopRight As RectangleInfo, BottomLeft As RectangleInfo, BottomRight As RectangleInfo)
@@ -120,27 +116,30 @@ Public Class frmControlCapture
         Return oResult
     End Function
 
+    Private Sub UpdateOKButton()
+        If rbControlName.Checked Then
+            txtControlName.Enabled = rbControlName.Checked
+            txtControlBounds.Enabled = Not rbControlName.Checked
+
+            btnOK.Enabled = rbControlName.Checked And ControlName <> String.Empty
+        ElseIf rbControlPosition.Checked Then
+            txtControlBounds.Enabled = rbControlPosition.Checked
+            txtControlName.Enabled = Not rbControlPosition.Checked
+
+            btnOK.Enabled = rbControlPosition.Checked And TopLeft IsNot Nothing
+        End If
+    End Sub
+
 
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlName.CheckedChanged
-        txtControlName.Enabled = rbControlName.Checked
-        txtControlBounds.Enabled = Not rbControlName.Checked
-
-        btnOK.Enabled = rbControlName.Checked And ControlName <> String.Empty
+        UpdateOKButton()
     End Sub
 
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles rbControlPosition.CheckedChanged
-        txtControlBounds.Enabled = rbControlPosition.Checked
-        txtControlName.Enabled = Not rbControlPosition.Checked
-
-        btnOK.Enabled = rbControlPosition.Checked And TopLeft IsNot Nothing
+        UpdateOKButton()
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        If txtControlName.Text = String.Empty And txtControlBounds.Text = String.Empty Then
-            MsgBox("Kein Control gefunden!")
-            DialogResult = DialogResult.Cancel
-        End If
-
         If rbControlPosition.Checked Then
             ControlName = String.Empty
         ElseIf rbControlName.Checked Then