Register Hotkey Problem

  • VB.NET

    Register Hotkey Problem

    Ich möchte einen Key registrieren welcher aber nicht vom Programm vestgelegt wird sondern vom User.

    Entweder das das Programm solange auf einen Tastenanschlag lauscht,
    diesen dann registriert oder mit einer Inputbox wo man vor Programmstart die Taste eingeben muss.

    mein derzeitiger code:

    VB.NET-Quellcode

    1. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    2. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    3. Private Const Key_NONE As Integer = &H0
    4. Private Const WM_HOTKEY As Integer = &H312
    5. Public abfrage As Boolean = False
    8. inputbox("bitte taste eingeben","")
    9. 'wie kann man den tastennamen zu einem integer machen?
    10. public taste as integer = 0 ' variabler wartet auf wert
    13. sub register
    14. For i As Integer = 1 to 255
    15. RegisterHotKey(Me.Handle, i, Key_NONE, i)
    16. Next
    17. end sub
    22. Protected Overrides Sub WndProc(ByRef m As Message)
    24. If m.Msg = WM_HOTKEY Then
    25. Select Case m.WParam
    26. Case 1 to 255
    27. If abfrage = true Then
    28. taste = 'keine ahnung
    30. end sub


    bin für jede hilfe dankbar :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „soulreafer“ ()

Facebook
Telefonspende