Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
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 6815 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




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^