[vb6] evento keyup

[ciro78]

Salve cercavo di capire il modo di verificare se i tasti ctrl etc etc vengono premuti.Il mio manuale suggerisce

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift And 1 = 1 Then Print "Maiusc"
If Shift And 2 = 2 Then Print "ctrl"
If Shift And 4 = 4 Then Print "ALT"

End Sub

ma sembra non funzionare correttamente.A cosa è dovuto?

l'errore è il seguente.se premo uno solo dei tasti ctrl alt o maiuscolo non accade niente.se ne premo due mi visualizza che ho premuto tutti e tre

[Sypher]

Originariamente inviato da ciro78
Salve cercavo di capire il modo di verificare se i tasti ctrl etc etc vengono premuti.Il mio manuale suggerisce

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift And 1 = 1 Then Print "Maiusc"
If Shift And 2 = 2 Then Print "ctrl"
If Shift And 4 = 4 Then Print "ALT"

End Sub

ma sembra non funzionare correttamente.A cosa è dovuto?

l'errore è il seguente.se premo uno solo dei tasti ctrl alt o maiuscolo non accade niente.se ne premo due mi visualizza che ho premuto tutti e tre

io non ho ben capito quello che hai scritto!
Tradotto è:
Se hai premuto il tasto Shift e 1 uguale a 1(sempre) allora stampa Maiusc
Se hai premuto il tasto Shift e 2 uguale a 2(sempre) allora stampa ctrl
Se hai premuto il tasto Shift e 4 uguale a 4(sempre) allora stampa Alt
quindi appena premi shift entrerà in tutti e tre gli if che come seconda condizione ne hanno una che è sempre verificata quindi io scriverei:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift And KeyCode = 17 Then Print "Shift + Ctrl"
If KeyCode = 16 Then Print "Shift"
If Shift And KeyCode = 18 Then Print "Shift + Alt"
End Sub

[ciro78]

beh io ho solo riportato quello che srcive il manuale e ti giuro ke è così

[ciro78]

scusa ma non mi trovo.il codice che ho scritto io dovrebbe scrivere quella riga(esempio la prima) solo se premo 1.In realta 1 è un codice che il manuale dice corrisponda a vbShiftMask....

vorrei capire sta cosa.


Il codice che hai fatto tu funziona ma se metto al posto di 17 il valore vbCtrl o vbCtrlMask non va perhè???