On Sunday 29 November 2009 12:31:35 Kadaitcha Man wrote: > Menus are creatable according to http://gambasdoc.org/help/comp/gb.qt/menu > > However I cannot see any methods anywhere that will allow me to add a > menu item in code. For what I need to do, pre-defining the menus using > the menu editor then hiding or showing the items is not practical. > > Have I missed something? > > --------------------------------------------------------------------------- > --- Let Crystal Reports handle the reporting - Free Crystal Reports 2008 > 30-Day trial. Simplify your report design, integration and deployment - > and focus on what you do best, core application coding. Discover what's > new with Crystal Reports now. http://p.sf.net/sfu/bobj-july > _______________________________________________ > Gambas-user mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/gambas-user > Perhaps not so strangely I need religions in a medical program (for some reason my local hospital needs it on their ante-natal sheet, so here is some code for you: This data is keep in two tables > 1 view in the backend. This code gives the picture shown.
Public Sub Religions_Menu_Create()
'------------------------------------------------------
'There is a 1 to many relationship between the religion
'and subreligion but subreligion may be null
'This creates a menu of religions, with sub-religions
'as submenus
'------------------------------------------------------
Dim mnu As menu
Dim member As Collection
dim Religions as collection
Dim parent_menu As menu
Dim fk_last_religion As Integer
'fetch view from backend
Religions= modCommonDBI.Religions_Get()
For Each member In Religions
If fk_last_religion <> member!fk_religion Then
fk_last_religion = member!fk_religion
mnu = New Menu(mnuReligions) As "mnuReligions"
parent_menu = mnu
mnu.name = member!religion
mnu.caption = member!religion
mnu.tag = member!pk_view
End If
If Not IsNull(member!fk_lu_sub_religion) Then
'-----------------------------
'Add sub-religions to the menu
'-----------------------------
mnu = New Menu(parent_menu) As "mnuReligions"
mnu.name = member!sub_religion
mnu.caption = member!sub_religion
mnu.tag = member!pk_view
End If
Next
End
<<attachment: religion_menu.png>>
------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
