Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
MENU - Show a popup menu
Liittle example to show popu menu
Create project with window
clic with right button on the window and event and mousedown (mouse clic)

Now write this 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

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

That's all
happy day !

Creation date : 27/05/2009 @ 22:47
Last update : 27/05/2009 @ 22:47
Category : MENU
Page read 6836 times

Print the article Print the article


react.gifReactions to this article

Nobody gave a comment yet.
Be the first one to do it!


QUICK MENU

doc.png DOCUMENTATION
forum.png   FORUM
logiciel.png GB SOFTWARES
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
actualite et medias
compteur gratuit
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^