Private Sub kbHook_KeyDown(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown
If Keys.Control And Keys.Alt And Keys.Shift And Keys.N Then
Me.Opacity = 100
Me.ShowInTaskbar = True
Me.ShowIcon = True
MsgBox("CTRL + ALT + SPACE") ' This work
Me.BackColor = Color.Indigo
CheckBox3.Checked = False
End If
End Sub
j'utilise la question que je veux que le clavier pour écouter plusieurs clés quand il est en arrière - plan, mais cela ne fonctionne pas. Qu'est-ce qui ne va pas?
Cela fonctionne pour moi:
Private Sub kbHook_KeyDown(Key As Keys) Handles kbHook.KeyDown
If My.Computer.Keyboard.CtrlKeyDown AndAlso
My.Computer.Keyboard.AltKeyDown AndAlso
My.Computer.Keyboard.ShiftKeyDown AndAlso
Key = Keys.N Then
Debug.Print("Ctl-Alt-Shift-N")
End If
End Sub
Cet article est collecté sur Internet, veuillez indiquer la source lors de la réimpression.
En cas d'infraction, veuillez [email protected] Supprimer.
laisse moi dire quelques mots