Post by Gaetano Di ZanniSalute a tutti,
tempo fa ho visto quella bella utility, fatta da non mi ricordo chi, che
disabilitava il tasto Shift: ma con il tasto F11 come la mettiamo?
A fronte dell'evento "Su caricamento" della maschera genera il seguente
codice VBA:
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
E a fronte dell'evento dell'evento "Su tasto giù" della maschera genera il
seguente codice VBA:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF11
KeyCode = 0
End Select
End Sub
Naturalmente cambiando la costante figurativa nella Case, con queste due Sub
si può inibire l'effetto di qualsiasi tasto.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------