Tastaturhook - Strg + Alt , falsche Abfrage?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Tastaturhook - Strg + Alt , falsche Abfrage?

    Hallo.

    Und zwar geht es darum, mit Tastaturhook
    die Tastenkombi Alt + Gr abzufragen.

    Ich hab Folgendes:

    VB.NET-Quellcode

    1. Private AltGrActiveBool As Boolean = False
    2. Private Property AltGrActive() As Boolean
    3. Get
    4. Return AltGrActiveBool
    5. End Get
    6. Set(value As Boolean)
    7. If value = AltGrActiveBool Then Exit Property
    8. AltGrActiveBool = value
    9. End Set
    10. End Property
    12. Private StrgActiveBool As Boolean = False
    13. Private Property StrgActive() As Boolean
    14. Get
    15. Return StrgActiveBool
    16. End Get
    17. Set(value As Boolean)
    18. If value = StrgActiveBool Then Exit Property
    19. StrgActiveBool = value
    20. End Set
    21. End Property
    23. Private AltActiveBool As Boolean = False
    24. Private Property AltActive() As Boolean
    25. Get
    26. Return AltActiveBool
    27. End Get
    28. Set(value As Boolean)
    29. If value = AltActiveBool Then Exit Property
    30. AltActiveBool = value
    31. End Set
    32. End Property
    34. Private Sub checkforcase(B As Keys, wParam As Integer)
    36. Select Case True
    38. Case B = Keys.LControlKey AndAlso wParam = 256 : StrgActive = True
    39. Case B = Keys.RControlKey AndAlso wParam = 256 : StrgActive = True
    41. Case B = Keys.LMenu AndAlso wParam = 257 : AltActive = False
    42. Case B = Keys.LMenu AndAlso wParam = 260 : AltActive = True
    44. Case B = Keys.LControlKey AndAlso wParam = 257 : StrgActive = False
    45. Case B = Keys.RControlKey AndAlso wParam = 257 : StrgActive = False
    47. End Select
    48. Debug.WriteLine("AltGR : " & AltGrActive.ToString)
    49. AltGrActive = StrgActive AndAlso AltActive
    51. Debug.WriteLine("Strg: " & StrgActive.ToString & " Alt " & AltActive.ToString)
    53. End Sub


    Die checkcase Methode wird aufgerufen, sobald das Tastaturhook Event ausgelöst wird.

    Das Problem: Wenn ich zuerst die Alt Taste gedrückt halte und dann Strg drücke,
    klappt es.

    Wenn ich zuerst die Strg Taste gedrückt halte und dann Alt , klappt es nicht.

    Kann mir jemand sagen, woran das liegt?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Daniel Baumert“ ()

    @Daniel Baumert Mach mal Option Strict On.
    Keys.LControlKey ist kein Boolean.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Daniel Baumert schrieb:

    Was meinst Du?
    Sorry,

    Daniel Baumert schrieb:

    Case B = Keys.LControlKey AndAlso wParam = 256
    das B = ... ist mir durch die Lappen gegangen, weil in C# wäre das ein ==.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!