hwnd GetForeGroundWindow EX

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Siestaeg.

    hwnd GetForeGroundWindow EX

    Hi Leute,

    bin dabei eine Bildschirmtastatur (Ziffernblock) für TouchScreens zu basteln. Ich möchte eine Funktion einbauen, mit der ich feststellen kann, welches Control gerade aktiv ist. Ist es ein Control mit der Möglichkeit Text einzugeben, soll sich der Ziffernblock automatisch einblenden.

    Das aktuelle Fenster bekomme ich ja mit "GetForegroundWindow()", aber funktioniert das auch irgendwie mit
    "GetForegroundWindowEX" um das aktuelle Control zu bekommen, bzw. wie bekomme ich den Typ dieses Controls,
    TextBox, Button, ...

    Danke für eure Hilfe :rolleyes:

    Einfügemarke

    Hi Leute,

    nachdem meine Versuche, den Code aus oben genannter Quelle, zum laufen zu bringen kläglich gescheitert sind, er ist zwar gelaufen, aber das Ergebnis war nicht das was ich brauche, habe ich mir Gedanken gemacht, wie ich das anders lösen kann.

    Die Idee wäre, feststellen ob sich eine aktive, blinkende Einfügemarke auf dem Bildschirm befindet.
    Leider habe ich keine Ahnung wie ich das rausfinden kann.

    Hi Leute,



    habs jetzt anders gelöst, vielleicht nicht sehr elegant, aber es funzt.

    Quellcode

    1. #Region"Autoshow"
    2. #Region"Variablen Autoshow"
    3. PrivateDeclareFunction GetCursorInfo Lib"user32.dll" (ByRef pc As CURSORINFO) AsInteger
    4. PrivateDeclareFunction GetAsyncKeyState Lib"user32" (ByVal vKey AsLong) AsInteger
    5. Public lClick AsInteger = 0
    6. Public lClick2 AsInteger = 0
    7. PrivateConst VK_LBUTTON = &H1
    8. PrivateConst VK_RBUTTON = &H2
    9. PrivateConst VK_MBUTTON = &H4
    11. Structure CURSORINFO
    12. Dim cbsize AsInteger
    13. Dim flags AsInteger
    14. Dim hCUrsor AsInteger
    15. Dim p As PointAPI
    16. EndStructure
    17. Structure PointAPI
    18. Dim X AsInteger
    19. Dim Y AsInteger
    20. EndStructure
    21. #EndRegion
    22. PrivateSub tmrAutoShow_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAutoShow.Tick
    23. Dim ff AsNew CURSORINFO
    24. ff.cbsize = System.Runtime.InteropServices.Marshal.SizeOf(GetType(CURSORINFO))
    25. GetCursorInfo(ff)
    26. With ff
    27. If GetAsyncKeyState(VK_LBUTTON) Then
    28. If lClick = 0 Then
    29. lClick = 1
    30. Else
    31. lClick = 0
    32. EndIf
    33. EndIf
    35. If ff.p.X >= Me.Left And ff.p.X <= Me.Right And ff.p.Y >= Me.Top And ff.p.Y <= Me.Bottom Then
    36. ExitSub
    37. Else
    38. If lClick <> lClick2 Then
    39. If .hCUrsor = 65557 Then
    40. Me.Show()
    41. Else
    42. Me.Hide()
    43. EndIf
    44. EndIf
    45. lClick2 = lClick
    46. EndIf
    47. EndWith
    48. EndSub
    49. #EndRegion


    In ein paar Tagen, werde ich die Tastatur online stellen.
    Wer Interesse hat findets unter Google unter dem Namen BS-Numblock. (Vorabversion bereit im Netz)
    Ist natürlich Freeware !!!

    Danke und schönes WE

    Siestaeg schrieb:

    habs jetzt anders gelöst, vielleicht nicht sehr elegant, aber es funzt.

    Sorry, aber das wird wohl nie sauber funktionieren, auch wenn die Idee den CursorTyp abzufragen sehr nett ist:
    - Felder können per TAB angesteuert werden, nicht nur per Mausclick
    - Dokumente (z.B. Google) können geöffnet werden und dabei schon den Focus auf einem Input Feld haben
    - bei schnellen Mausbewegungen schlägt die Abfrage fehl
    - ausserdem ist bei mir der ICursor = 65555

    Wie Du vorgehabt hattest, musst Du abfragen ob das momentan focussierte Control Eingaben erlaubt. Was funktionierte nicht an bla's Link ?

    Hi Kangaroo,

    hab den umgeschriebenen Code von bla's Link gerade nicht dabei, werde ihn posten, wenn ich wieder zu Hause bin.
    Jedenfalls habe ich immer anstelle eines Klassennamens eine Zahl bekommen, wenn ich mich ausserhalb meiner Form bewegt habe. Innerhalb meiner Form war der Klassennamen immer 0.

    Hier der übersetzte src (nur übersetzt, nicht optimiert!)

    einfach die longs der Apis in integers geändert. ein paar $'s entfernt und left durch substring ersetzt + das timer event geändert.

    VB.NET-Quellcode

    1. Public Class Form1
    2. ' alle benötigten API-Deklarationen
    3. Private Declare Function GetClassName Lib "user32" _
    4. Alias "GetClassNameA" ( _
    5. ByVal hWnd As Integer, _
    6. ByVal lpClassName As String, _
    7. ByVal nMaxCount As Integer) As Integer
    9. Private Declare Function GetFocus Lib "user32" () As Integer
    10. Private Declare Function GetForegroundWindow Lib "user32" () As Integer
    12. Private Declare Function GetWindowThreadProcessId Lib "user32" ( _
    13. ByVal hWnd As Integer, _
    14. ByVal lpdwProcessId As Integer) As Integer
    16. Private Declare Function AttachThreadInput Lib "user32" ( _
    17. ByVal idAttach As Integer, _
    18. ByVal idAttachTo As Integer, _
    19. ByVal fAttach As Integer) As Integer
    21. ' benutzerdefinierter Datentyp
    22. Private Structure tActiveCtrInfo
    23. Dim lnghWnd As Integer
    24. Dim strClassName As String
    25. End Structure
    29. ' Aktives Cntrol ermitteln
    30. Private Function GetActiveControl() As tActiveCtrInfo
    31. Dim strBuffer As String
    32. Dim lngOtherThreadID As Long
    33. Dim lngThread1 As Long
    34. Dim lngThread2 As Long
    35. Dim lngGetCurrentThreadID As Long
    36. Dim blnReminder As Boolean
    37. Dim lnghWndControl As Long
    39. ' Prozess-ID der eigenen Anwendung
    40. lngThread1 = GetWindowThreadProcessId(Me.Handle, _
    41. lngGetCurrentThreadID)
    43. ' Prozess-ID der aktiven Anwendung
    44. lngThread2 = GetWindowThreadProcessId(GetForegroundWindow(), _
    45. lngOtherThreadID)
    47. ' Falls eigene Anwendung nicht die aktive Anwendung...
    48. If lngThread1 <> lngThread2 Then
    49. blnReminder = AttachThreadInput(lngThread2, _
    50. lngThread1, True)
    51. End If
    53. ' Handle des aktuellen Controls
    54. lnghWndControl = GetFocus()
    55. GetActiveControl.lnghWnd = lnghWndControl
    57. If blnReminder Then
    58. blnReminder = AttachThreadInput(lngThread2, _
    59. lngThread1, False)
    60. End If
    62. ' jetzt Klassennamen ermitteln
    63. strBuffer = Space(255)
    64. GetClassName(lnghWndControl, strBuffer, Len(strBuffer))
    65. If InStr(strBuffer, Chr(0)) > 0 Then
    66. strBuffer = strBuffer.Substring(0, InStr(strBuffer, Chr(0)) - 1)
    67. End If
    68. GetActiveControl.strClassName = strBuffer
    69. End Function
    72. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    73. Dim aciActCtr As tActiveCtrInfo
    75. ' Aktives Control...
    76. aciActCtr = GetActiveControl()
    78. ' ...in den beiden Textboxen anzeigen
    79. With aciActCtr
    80. txtClassname.Text = .strClassName
    81. txtHandle.Text = CStr(.lnghWnd)
    82. End With
    83. End Sub
    84. End Class
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Hi bla,

    dein Code funzt natürlich supi, echt Danke (keine Ahnung wo ich mit meinen Gedanken bei der Übersetzung war), das einzige Problem, bei den zwei ifs, wo der blreminder gesetzt wird, verliert das aktuell aktive Control den Focus. Somit schlägt der anschließende Sendkeys fehlt.

    Kann man das auch irgendwie lösen, daß das Control den Focus behält ?



    THX Simon

Facebook
Telefonspende