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 6539 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
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^