WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
MENU - afficher un menu popup
Petit exemple pour afficher un menu popup.
Creez une fenetre.
Clic droit sur la fenetre, puis evenement puis mousedown (soit un clic de souris)

maintenant entrez le code :

PUBLIC SUB Form_MouseDown()

    'Defini nos variables pour le menu popup
  DIM hmenus AS Menu
  DIM hmenu AS Menu
  'Define the menu dans fmain
  hMenus = NEW Menu(FMain)
  'crée le menu popup
  hMenu = NEW Menu(hMenus) AS "hMenu"
  'Ajoute le texte au menu
  hMenu.Text = ("premier item")
  'Ajoute un deuxieme texte
  hMenu = NEW Menu(hMenus) AS "hMenu1"
  hMenu.Text = ("deuxieme item")
  IF hMenus THEN hMenus.Popup()
END

Maintenant il faut definir deux fontions quand nous cliquons sur le menupopup car il y a deux entrées dans ce menu ;
PUBLIC SUB hMenu_Click()
message("Vous avez cliqué sur le premier item du menu")
END

PUBLIC SUB hMenu1_Click()
  message("Vous avez cliqué sur le deuxieme item du menu")
END

et voila. !
Bonne semaine


Date de création : 27/05/2009 @ 22:47
Dernière modification : 27/05/2009 @ 22:47
Catégorie : MENU
Page lue 4475 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^