Hallo,
mit folgendem Code möchte ich gucken ob Shift gehalten wird (halt wenn Keydown ausgelöst wird, dann Bool auf True, bei Keyup wieder auf False)
Es klappt allerdings nicht, er erkennt das Keyup & Down nicht.
mit folgendem Code möchte ich gucken ob Shift gehalten wird (halt wenn Keydown ausgelöst wird, dann Bool auf True, bei Keyup wieder auf False)
VB.NET-Quellcode
- Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As KeyModifier, ByVal vk As Integer) As Integer
- Private IsPressed As Boolean = False
- Protected Overrides Sub WndProc(ByRef m As Message)
- If m.Msg = WM_KEYDOWN Then
- If m.WParam = 0 Then IsPressed = True
- ElseIf m.Msg = WM_KEYUP Then
- If m.WParam = 1 Then IsPressed = False
- End If
- MyBase.WndProc(m)
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- RegisterHotKey(Me.Handle, 0, KeyModifier.None, Keys.LShiftKey)
- RegisterHotKey(Me.Handle, 1, KeyModifier.None, Keys.LShiftKey)
- End Sub
Es klappt allerdings nicht, er erkennt das Keyup & Down nicht.
Polling is trolling!
Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..
Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..