Public Function FillMenu(MenuParent as Menu)
dim s as string
dim hMenu as Menu
MenuParent.Children[0].Delete
For each s in Dir(MenuParent.Tag,"*", gb.directory)
hMenu = new Menu(MenuParent)
hMenu.Text = s
hMenu.Picture = Picture["icon:/small/directory"]
if isDrir(MenuParent.Tag &/ s) then
hMenu = new Menu(MenuParent)
hMenu.Text=".Child."
endif
next
oups no time to finish ... this is a way
endif
2010/8/6 M. Cs. <[email protected]>:
> Off course, I would like to have a menu structure where each submenu item
> represents a subfolder recursively.
> ------------------------------------------------------------------------------
> 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
>
------------------------------------------------------------------------------
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
