EventMenu()

Syntaxe

Resultat = EventMenu()
Description
Renvoie le numéro du menu qui a envoyé un évènement.

C'est le même évènement qui permet de connaître aussi l'icône d'une barre d'outils ou le raccourci clavier qui a été utilisé.

Arguments

Aucun.

Valeur de retour

Renvoie le numéro du menu associé à l'évènement.

Remarques

Utilisez cette fonction après un évènement de type #PB_Event_Menu renvoyé par WindowEvent() ou WaitWindowEvent().

Cette commande permet aussi de détecter quel bouton d'une barre d'outil ou quel raccourci clavier a été utilisé.

Un évènement sur une barre d'outils est similaire à un évènement sur un menu (car les barres d'outils sont la plupart du temps des racourcis pour des opérations disponibles dans les menus). Il est donc préférable de prendre les même identifiants pour l'élément du menu et le bouton de la barre d'outils qui représentent la même action, comme ça aucun code supplémentaire n'est nécessaire pour gérer la barre d'outils.

Exemple

  If OpenWindow(0, 0, 0, 230, 90, "Exemple de gestion des évènements...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  ;Raccourcis clavier
  AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_N, 1)
  AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_O, 2)
  AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_S, 3)
  
  ;Menu
  If CreateMenu(0, WindowID(0))
    MenuTitle("Menu")
    MenuItem(1, "Nouveau"+Chr(9)+"Ctrl+N")
    MenuItem(2, "Ouvrir"+Chr(9)+"Ctrl+O")
    MenuItem(3, "Enregistrer"+Chr(9)+"Ctrl+S")
  EndIf
  
  ;Barre d'outils
  If CreateToolBar(0, WindowID(0))
    ToolBarStandardButton(1, #PB_ToolBarIcon_New)
    ToolBarStandardButton(2, #PB_ToolBarIcon_Open)
    ToolBarStandardButton(3, #PB_ToolBarIcon_Save)
  EndIf
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
 
      Case #PB_Event_Menu
        Select EventMenu()
          Case 1 : Debug "Menu 'Nouveau' cliqué ou Bouton 'Nouveau' cliqué ou 'CTRL+N' au clavier !"
          Case 2 : Debug "Menu 'Ouvrir' cliqué ou Bouton 'Ouvrir' cliqué ou 'CTRL+O' au clavier !"
          Case 3 : Debug "Menu 'Enregistrer' cliqué ou Bouton 'Enregistrer' cliqué ou 'CTRL+S' au clavier !"
        EndSelect
        
    EndSelect
  Until Event = #PB_Event_CloseWindow
EndIf

Voir aussi

WindowEvent(), WaitWindowEvent()

OS Supportés

Tous

<- EventGadget() - Window Index - EventTimer() ->