Ereignis bei bestimmter Mauszeiger-Position

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Fonsi.

    Ereignis bei bestimmter Mauszeiger-Position

    Moin,

    ich möchte bei einer bestimmten Mauszeiger-Position ein Ereignis ausführen lassen. Der Mauszeiger befindet sich dabei nicht im Formular selbst, da das Programm minimiert läuft.

    Die Position des Mauszeigers lässt sich ja z.B. über Cursor.Position oder über die Windows-API abfragen. Als quick & dirty-Lösung kam mir grad nur die Möglichkeit in den Sinn, mit nem Timer die Position des Mauszeigers dauernd abzufragen und bei bestimmten Koordinaten das Ereignis aufzurufen.

    Gibt es eine elegantere Möglichkeit?

    HI

    Du kannst alternativ einen globalen MouseHook mittels WinApi dazu verwenden.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frmHook
    2. 'Apis fürs HOOKEN:
    3. <System.Runtime.InteropServices.DllImport("kernel32.dll")> _
    4. Private Shared Function GetModuleHandle(ByVal moduleName As String) As IntPtr
    5. End Function
    7. <System.Runtime.InteropServices.DllImport("user32.dll")> _
    8. Private Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
    9. End Function
    10. <System.Runtime.InteropServices.DllImport("user32.dll")> _
    11. Public Shared Function UnhookWindowsHookEx(ByVal hhook As IntPtr) As Integer
    12. End Function
    14. <System.Runtime.InteropServices.DllImport("user32.dll")> _
    15. Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As UInteger, ByVal lParam As IntPtr) As IntPtr
    16. End Function
    17. 'Der Delegate
    18. Private Delegate Function HookProc(ByVal nCode As Integer, ByVal wParam As UInteger, ByVal lParam As IntPtr) As IntPtr
    19. Private hkProc As HookProc
    20. Private hook As IntPtr
    22. 'MSDN: Installs a hook procedure that monitors low-level mouse input events. For more information, see the LowLevelMouseProc hook procedure.
    23. Const WH_MOUSE_LL As Integer = 14
    24. Private Function LowLevelMouseProc(ByVal nCode As Integer, ByVal wParam As UInteger, ByVal lParam As IntPtr) As IntPtr
    25. Dim p As Point = Cursor.Position
    26. 'hier ist der Bereich wo die Mousebewegung ein Event erzeugen soll. Dieses muss nicht hier deklariert werden
    27. 'In meinem Beispiel wird ein Event gefeuert, sobald die Maus sich oben Links in der Ecke befindet
    28. '(In den oberen 100x100 Pixeln des Desktops
    29. Dim r As Rectangle = New Rectangle(0, 0, 100, 100)
    30. Dim mrect As Rectangle = New Rectangle(p.X, p.Y, 1, 1) 'Maus Rectangle
    31. 'prüfen ob die Maus innerhalb des Rectangles ist.
    32. If r.IntersectsWith(mrect) Then
    33. 'Maus ist im angebenen Berreich, tu was:
    34. RaiseEvent MouseIsThere(p) 'ich habe hier ein eigenes Event gestartet
    35. End If
    36. 'CallNextHookEx ist optional, wird aber empfohlen da sonst andere Hooks von zB anderen Anwendungen nicht mehr behandelt werden
    37. Return CallNextHookEx(IntPtr.Zero, nCode, wParam, lParam)
    38. End Function
    39. 'Mein MausEvent
    40. Public Event MouseIsThere(ByVal p As Point)
    41. Private Sub Mouse_is_There(ByVal p As Point) Handles Me.MouseIsThere
    42. Debug.Print("Maus is in Punkt " & p.ToString) 'Ich lass mir mal die Koordinaten hier ausgeben.
    43. End Sub
    44. Private Sub Hookfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    45. 'Ich habe den Hook im Formloadevent registriert.
    46. 'Delegat für den Hook erstellen
    47. hkProc = New HookProc(AddressOf LowLevelMouseProc)
    48. 'Hook Registrieren
    49. 'Parameter Siehe MSDN: WH_MOUSE_LL ist der globale LowLevelMouseHook, hkProc der Delegat der auf die Prozedur zeigt.
    50. 'GetModuleHandle(Nothing) gibt ein Handle auf den aufrufenden Prozess zurück. Das ist unsere .exe
    51. 'Diese Registriert den Hook.
    52. 'der letzte Parameter gibt an, welcher Thread mit dem Hook versehen wird
    53. 'Bei 0 werden alle Threads im selben Desktop des aufrufenden Threads genommen
    54. hook = SetWindowsHookEx(WH_MOUSE_LL, hkProc, GetModuleHandle(Nothing), 0)
    55. End Sub
    56. '//WICHTIG//
    57. 'Ressourcen des Hooks wieder freigeben durch UnhookWindowsHookEx
    58. 'Ich habe es in meinem Fall das HandleDestroyedEvent der Form überschrieben und dort mit durchgeführt.
    59. 'Musst du dir halt überlegen
    60. Protected Overrides Sub OnHandleDestroyed(ByVal e As EventArgs)
    61. UnhookWindowsHookEx(hook)
    62. MyBase.OnHandleDestroyed(e)
    63. End Sub
    64. End Class


    Das ist meine Signatur und sie wird wunderbar sein!