Gambas France BETA

Déclenchement des actions d'un menu :

• vous avez deux possibilités pour déclencher les évènements d'un menu :
  - soit par une procédure _Click() précédée du nom de l'évènement
  - soit par une procédure Action_Activate() qui récupère les actions nommées dans le dit menu
  Chacune d'entre elles ayant ses avantages et inconvénients.
  
  Extrait du code de l'exemple de la forge : Horloge
  

  1 2 3 4 5 6	PUBLIC SUB option_Click() '<----------------------------------------' récupération de l'option choisie iDrap = LAST.tag PaintClock(Now) '<----------------------------------------------' mise à jour de l'horloge END

  
  

  1 2 3 4 5	PUBLIC SUB mnuDesign_Click() SetDesign(LAST.Tag)'<---------------------------------------------' Récupération du dernier Item cliqué END

  
  

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

  PUBLIC SUB Action_Activate(sKey AS STRING) AS BOOLEAN '<--------------' récupération des Actions des menus SELECT sKey CASE "Reveil" Alarm.Show CASE "Auto" bAuto = NOT bAuto $iCount = iDesign '<----------------------------------------' mise à jour compteur pour auto Module_Settings.StoreClockSettings() '<-------------------' sauvegarde des settings CASE "Aide" FHelp.Show CASE "Trotteuse" bTrotteuse = NOT bTrotteuse PaintClock(Now) Module_Settings.StoreClockSettings() '<-------------------' sauvegarde des settings END SELECT END

  
  Il faut, bien sûr, avoir déclaré ces actions :
  

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

  hMenuItem = NEW Menu(hContext3) AS "mnuReveil" hMenuItem.Text = ("Réveil" hMenuItem.Picture = Picture["icon:/32/alarm"] hMenuItem.Action = "Reveil" '<-------------------- action hMenuItem = NEW Menu(hContext3) AS "mnuTrotteuse" hMenuItem.Text = ("Trotteuse ") hMenuItem.Picture = Picture["icon:/32/clock"] hMenuItem.Action = "Trotteuse" '<-------------------- action hMenuItem = NEW Menu(hContext3) AS "mnuAuto" hMenuItem.Text = ("Auto ") hMenuItem.Picture = Picture["icon:/32/car"] hMenuItem.Action = "Auto" '<-------------------- action hMenuItem.Tag = "Auto" IF bAuto THEN hMenuItem.Checked = TRUE '<-------------------------' check sur menu Auto en fonction bAuto hMenuItem = NEW Menu(hContext3) AS "mnuHelp" hMenuItem.Text = ("Aide") hMenuItem.Picture = Picture["icon:/32/help"] hMenuItem.Action = "Aide" '<-------------------- action

  
  

====================

Navigation :

• Exemples de la Logithèque
• Saviez vous que
• Comment faire pour
• Petits Trucs

====================

La Documentation :

• site officiel
• documentation officielle
• Gambas Linux
• Gambas Book (en anglais ou allemand) ou traduisible à la volée par Google Traduction : Translator
• Même page directement traduite en français
• Convention de Nommage des Variables
• Conventions de Nommage

====================