CTRL + ENTREE

mercredi 25 mars 2009, par bluegyn_spip

Comment lancer une action en appuyant simultanément sur CTRL + ENTREE ?

Propriété

KEYPREVIEW = True

CODE

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)







If (Shift = vbCtrlMask) And (KeyCode = 13) Then mnu_Action_Click







End Sub

Manip’s