AJOUTER N'IMPORTE QUEL RACCOURCI À VOS MENUS (HOOK CLAVIER)

' A mettre en début de Form
Implements IShortCut



Private Sub AddShortCuts()
    ' Ajout des raccourcis
    Call AddShortcutToMenu("Open", Me.mnuOpen, "Ctrl+Shift+O", Me, vbCtrlMask, vbShiftMask, vbKeyO)
    Call AddShortcutToMenu("Previous", Me.mnuPrev, "Alt+Flèche gauche", Me, vbAltMask, , vbKeyLeft)
    Call AddShortcutToMenu("Next", Me.mnuNext, "Alt+Flèche droite", Me, vbAltMask, , vbKeyRight)
    Call AddShortcutToMenu("About", Me.mnuAbout, "Ctrl+Alt+F1", Me, vbCtrlMask, vbAltMask, vbKeyF1)
    Call AddShortcutToMenu("Save", Me.mnuSave, "Shift+S", Me, vbShiftMask, , vbKeyS)
    Call AddShortcutToMenu("Topic", Me.mnuTopic, "F1", Me, , , vbKeyF1)
    Call AddShortcutToMenu("Close", Me.mnuClose, "Alt+F4", Me, vbAltMask, , vbKeyF4)
End Sub




' C'est ici que l'on récupère les activations des raccourcis
Private Sub IShortCut_ShortCutActivated(shortcutTag As String)

    Select Case shortcutTag
        Case "Open"
            Call mnuOpen_Click
        Case "Next"
            Call mnuNext_Click
        Case "Previous"
            Call mnuPrev_Click
        Case "About"
            Call mnuAbout_Click
        Case "Save"
            Call mnuSave_Click
        Case "Topic"
            Call mnuTopic_Click
        Case "Close"
            Call mnuClose_Click
    End Select
    
End Sub