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 6815 fois