Soyez le premier à donner votre avis sur cette source.
Vue 6 914 fois - Téléchargée 749 fois
' 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
- bug corrigé
- activation du raccourci que dans le cas où la form est bien celle qui a le focus
@+
il sert à implémenter la classe IShortCut.
En gros, dans le code de notre form, on a çà :
Private Sub IShortCut_ShortCutActivated(shortcutTag As String)
qui est une méthode de l'interface. Pour qu'elle soit accessible dans notre form, il faut donc faire le Implements.
@+
Manque juste un appel à une fonction de l'API Win32 et un test dans la méthode KeyboardFilter.
J'avais pas vu çà non plus http://www.vbfrance.com/codes/EVENEMENT-RACCOURCIS-CLAVIER_7330.aspx ,Renfield a décidément codé beaucoup de chose ^^
M'enfin, la méthode est différente.
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.