KeyPReview
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyR And Shift = 2 Then Form2.Show: Me.Hide If KeyCode = vbKeyC And Shift = 4 Then End End Sub Private Sub Form_Load() KeyPreview = True End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyR And Shift = 2 Then Form2.Show: Me.Hide
If KeyCode = vbKeyC And Shift = 4 Then End
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
( keypreview.html )- by Paolo Puglisi
- Modifica del 17/12/2023