Visual Basic 6 - Intercettazione pressione Shift/CTRL + tasto

Forum - Visual Basic 6 - Intercettazione pressione Shift/CTRL + tasto

dylan666 (Normal User)
Pro

Messaggi: 129
Iscritto: 08/09/2009

Postato alle 9:37
Martedì, 22/09/2009

Ho bisogno di intercettare la pressione di F12 e di Shift+F12 dando due esiti diversi.
Ho trovato questo codice:

Codice sorgente - presumibilmente VB.NET

Sub Timer1_Timer()
 
If GetAsyncKeyState(vbKeyF12) = -32768 And GetAsyncKeyState(vbKeyShift) = -32768 Then
MsgBox "Funzione mostra"
 
 
ElseIf GetAsyncKeyState(vbKeyF12) = -32768 Then
MsgBox "Funzione stampa"
 
End If
End Sub

Non funziona, probabilmente anche perché ho dato al timer un intervallo troppo lento.
Che alte soluzioni sono possibili?
Spiegate chiaramente e con esempi che sono agli inizi, grazie

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:55
Martedì, 22/09/2009

prendi spunto da qua http://sorgentivb6.altervista.org/blog/?p=285

dylan666 (Normal User)
Pro

Messaggi: 129
Iscritto: 08/09/2009

Postato alle 19:28
Martedì, 22/09/2009

Ho letto l'articolo, utilizza sempre GetAsyncKeyState ma non pare mi risolva nulla.
Ha infatti difficoltà nell'intercettare due tasti premuti contemporaneamente.

Pare invece che abbia risolto così:

Codice sorgente - presumibilmente VB.NET

Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF12) And GetAsyncKeyState(vbKeyShift)Then
MsgBox "Funzione mostra"
 
 
ElseIf GetAsyncKeyState(vbKeyF12)Then
MsgBox "Funzione stampa"
 
End If
End Sub

Ultima modifica effettuata da dylan666 il 22/09/2009 alle 20:10