VersionRelease

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -11,6 +11,7 @@ Public Class frmControlCapture
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Dim oResult As WindowInfo = GetFocusedControl(Handle)
+        Dim newoResult As IntPtr = FocusedControlinActiveWindow(Handle)
 
         If oResult IsNot Nothing Then
             txtPID.Text = oResult.ClassName
@@ -18,10 +19,15 @@ Public Class frmControlCapture
             txtControlName.Text = oResult.ControlName
             txtAutomationId.Text = Automation.AutomationId
             txtFrameworkId.Text = Automation.FrameworkId
-
+            Console.WriteLine($"Automation.AutomationId: {Automation.AutomationId}")
             FrameworkId = Automation.FrameworkId
-            AutomationId = Automation.AutomationId
+
             ControlName = oResult.ControlName
+            Console.WriteLine($"oResult.ControlName: {oResult.ControlName}")
+            txtNewFocusControlHandle.Text = newoResult.ToString
+            AutomationId = newoResult.ToString
+            Console.WriteLine($"newoResult: {newoResult.ToString}")
+
             ProcessName = oResult.ProcessName
         End If
     End Sub
@@ -48,4 +54,16 @@ Public Class frmControlCapture
             DialogResult = DialogResult.None
         End If
     End Sub
+
+    Private Sub chkControlName_CheckedChanged(sender As Object, e As EventArgs) Handles chkControlName.CheckedChanged
+        If chkControlName.Checked Then
+            chkAutomationId.Checked = False
+        End If
+    End Sub
+
+    Private Sub chkAutomationId_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutomationId.CheckedChanged
+        If chkAutomationId.Checked Then
+            chkControlName.Checked = False
+        End If
+    End Sub
 End Class