The next question is, how can I retrieve the text of a menu item, which was
created dinamicaly with

PUBLIC FUNCTION FillMenu(MenuParent AS Menu, root AS String)
DIM s AS String
DIM hMenu AS Menu

IF MenuParent.Children.Count > 0 THEN MenuParent.Children[0].Delete

FOR EACH s IN Dir(root, "*", gb.directory)
 hMenu = NEW Menu(MenuParent)
 hMenu.Text = s
 hMenu.Picture = Picture["icon:/small/directory"]
 IF IsDir(MenuParent.Tag &/ s) THEN
   hMenu = NEW Menu(MenuParent)
   hMenu.Text = ".Child."

   ENDIF

NEXT
END
------------------------------------------------------------------------------
This SF.net email is sponsored by 

Make an app they can't live without
Enter the BlackBerry Developer Challenge
http://p.sf.net/sfu/RIM-dev2dev 
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to