Devi agire sul valore dello Shift nella KeyDown dell'oggetto: se Shift vale 1 è premuto vbKeyCapital, se Shift vale 2 è premuto Ctrl e se Shift vale 4 è premuto Alt.
Quindi:
codice:If KeyCode = vbKeyF2 Then KeyCode = vbKeyF1 Shift = 2 End If
Devi agire sul valore dello Shift nella KeyDown dell'oggetto: se Shift vale 1 è premuto vbKeyCapital, se Shift vale 2 è premuto Ctrl e se Shift vale 4 è premuto Alt.
Quindi:
codice:If KeyCode = vbKeyF2 Then KeyCode = vbKeyF1 Shift = 2 End If
Permessi di invio
Rispondi quotando