[VB6] Intercettare la combinazione di due tasti

[Ranch]

Quale evento mi conviene usare per intercettare la pressione combinata di due tasti????
Ad esempio Shift + F10???
Esiste una tabella di codici per queste combinazioni????
Grazie anticipate a tutti - Mik

[Ranch]

Sto provando a fare così ma purtroppo, il codice viene eseguito anche con la pressione di un solo tasto e non con la combinazione dei tre!!!!
dove stò sbagliando?????

Private Sub Numerico_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If Index = 45 Then
        If KeyCode = vbKeyControl And vbKeyShift And vbKeyF1 Then
            Form1.Height = 10845
        End If
    End If
End Sub

[startac130]

Prova Così:
code:--------------------------------------------------------------------------------
Private Sub Numerico_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If Index = 45 Then
If KeyCode = vbKeyControl Or :gren: vbKeyShift Or :gren: vbKeyF1 Then
Form1.Height = 10845
End If
End If
End Sub
--------------------------------------------------------------------------------
Spero di esserti stato utile, ciao.
M@tteo

[ladyBlu]

Ranch come da regolamento devi specificare nel titolo linguaggio e versione, in futuro ricordatene --> Leggi_Regolamento

[goku370]

:quote: Sarei interessato anch'io a capire come rilevare la pressione di una combinazione di tasti...

[Mabi]

Originariamente inviato da Ranch

Private Sub Numerico_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If Index = 45 Then
        If KeyCode = vbKeyControl And vbKeyShift And vbKeyF1 Then
            Form1.Height = 10845
        End If
    End If
End Sub

Per rilevare una combinazione di tasti devi utilizzare l'altro parametro della routine: Shift.
KeyCode infatti può assumere un solo valore per volta, al contrario di Shift che contiene un differente valore in base ai tasti premuti.
Se Shift vale 1 è stato premuto il tasto MAIUS, se vale 2 è stato premuto CTRL e se vale 4 è stato premuto ALT.
Per combinazioni che includono due o tutti e tre i tasti relativi a Shift, viene effettuata la somma.
Ad esempio se Shift vale 7, (1+2+4) sono stati premuti tutti e tre.

If Shift = 1 And KeyCode = vbKeyF1 Then
  MsgBox "Shift + F1"
End If
If Shift = 7 And KeyCode = vbKeyF1 Then
  MsgBox "Shift + Ctrl + Alt + F1"
End If

[goku370]

Grazie mille Mabi...

[Pinco Pallino 2]

Originariamente inviato da Mabi
Per rilevare una combinazione di tasti devi utilizzare l'altro parametro della routine: Shift.
KeyCode infatti può assumere un solo valore per volta, al contrario di Shift che contiene un differente valore in base ai tasti premuti.
Se Shift vale 1 è stato premuto il tasto MAIUS, se vale 2 è stato premuto CTRL e se vale 4 è stato premuto ALT.
Per combinazioni che includono due o tutti e tre i tasti relativi a Shift, viene effettuata la somma.
Ad esempio se Shift vale 7, (1+2+4) sono stati premuti tutti e tre.

If Shift = 1 And KeyCode = vbKeyF1 Then
  MsgBox "Shift + F1"
End If
If Shift = 7 And KeyCode = vbKeyF1 Then
  MsgBox "Shift + Ctrl + Alt + F1"
End If

e CANC quanto vale???

[Mabi]

Originariamente inviato da Pinco Pallino 2
e CANC quanto vale???

Canc (vbKeyDelete) vale 46

[Pinco Pallino 2]

Grazie!

Io ho messo:

If Shift = 6 And KeyCode = vbKeyDelete Then
  MsgBox "Ctrl + Alt + Canc"
End If

Ma nn va...come uso il codice? Io ho usato un timer...