this is the full tuto :)


2010/8/6 M. Cs. <[email protected]>:
> 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
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>

Attachment: menudyn-0.0.1.tar.gz
Description: GNU Zip compressed data

------------------------------------------------------------------------------
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to