&H Code für Taste Keys.Alt

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Silvergreen.

    &H Code für Taste Keys.Alt

    Guten Tag,
    Ich weiß ich weiß..., Google ist dein bester freund, habe ich auch. &H1... Aber nicht bei mir... Strg (&H2) funktioniert prima. Nur ALT will nicht, also entweder ist &h1 falsch oder irgendetwas an meinem Code. Case wird auch nicht ausgelößt...

    Visual Basic-Quellcode

    1. Public Const MOD_ALT As Integer = &H1 'Alt key
    2. Public Const MOD_Strg As Integer = &H2 'Strg key
    3. Public Const WM_HOTKEY As Integer = &H312
    5. 'RegisterKey Beispiel:
    6. RegisterHotKey(Me.Handle, 1, MOD_Strg, Keys.A)
    7. 'Bzw.
    8. RegisterHotKey(Me.Handle, 1, MOD_Alt, Keys.A)

    Für eventuelle Gegenfragen immer erreichbar;)
    Mfg Silvergreen
    ?(

    @Silvergreen 1 ist korrekt.
    Probier mal dieses Snippet. Form mit 2 Button und 1 Label:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal modifier As Integer, ByVal key As Integer) As Integer
    3. Private Declare Function UnregisterHotKey Lib "user32" (ByVal Hwnd As IntPtr, ByVal ID As Integer) As Integer
    5. Private Const Key_None As Integer = &H0
    6. Private Const Key_Alt As Integer = &H1
    7. Private Const Key_Ctrl As Integer = &H2
    8. Private Const Key_Shift As Integer = &H4
    9. Private Const Key_Win As Integer = &H8
    11. Private Const WM_HOTKEY As Integer = &H312
    12. Protected Overrides Sub WndProc(ByRef m As Message)
    13. If m.Msg = WM_HOTKEY Then
    14. Select Case CInt(m.WParam)
    15. Case 1 : Label1.Text = "A"
    16. Case 2 : Label1.Text = "Alt + B"
    17. Case 3 : Label1.Text = "Shift + Ctrl + C"
    18. Case 4 : Label1.Text = "Shift + Ctrl + Alt + Win + Q"
    19. End Select
    20. End If
    21. MyBase.WndProc(m)
    22. End Sub
    24. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    25. RegisterHotKey(Me.Handle, 1, Key_None, Keys.A)
    26. RegisterHotKey(Me.Handle, 2, Key_Alt, Keys.B)
    27. RegisterHotKey(Me.Handle, 3, Key_Shift Or Key_Ctrl, Keys.C)
    29. RegisterHotKey(Me.Handle, 4, Key_Shift Or Key_Ctrl Or Key_Alt Or Key_Win, Keys.Q)
    30. End Sub
    32. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    33. UnregisterHotKey(Me.Handle, 1)
    34. UnregisterHotKey(Me.Handle, 2)
    35. UnregisterHotKey(Me.Handle, 3)
    36. UnregisterHotKey(Me.Handle, 4)
    37. End Sub
    38. End Class
    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!

    Was versuchst du da?
    Wenn du da Shortcuts erstellen willst, würde ich das KeyDown-Event abonnieren und da den KeyCode auslesen.

    EDIT: siehe hier.

    LG, Acr0most
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

Facebook
Telefonspende