Hi,
ich muss in einer externen Anwendung den inhalt der aktiven Zeile eines Grid's auslesen.
Allerdings habe ich keine Ahnung wie ich an diese Daten kommen soll.
Nach mehreren Stunden Googel habe ich folgendes gefunden.
Hier komme ich ja nur auf das Objekt und nicht auf die Daten die ich benötige.
Gruß Patrick
ich muss in einer externen Anwendung den inhalt der aktiven Zeile eines Grid's auslesen.
Allerdings habe ich keine Ahnung wie ich an diese Daten kommen soll.
Nach mehreren Stunden Googel habe ich folgendes gefunden.
Code:
Public Class Form1 Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal lpszClass As String, ByVal lpszWindow As String) As Integer Private hwnd As IntPtr Private f As IntPtr Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim PID As Integer = 0 Me.txtPID.Text = Nothing Me.txtPname.Text = Nothing For Each P As Process In System.Diagnostics.Process.GetProcessesByName("GridTest") If LCase(P.ProcessName.ToString) = "gridtest" Then PID = P.Id.ToString Me.txtPID.Text = PID Me.txtPname.Text = P.ProcessName.ToString End If Next If PID > 0 Then hwnd = System.Diagnostics.Process.GetProcessById(PID).MainWindowHandle f = FindWindow("WindowsForms10.Window.8.app.0.378734a", "Form1") f = FindWindowEx(hwnd, 0, "WindowsForms10.Window.8.app.0.378734a", vbNullString) Else MsgBox("Anwendung nicht gestartet!", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Fehler") End If End Sub End Class
Gruß Patrick
Comment