cancel
Showing results for 
Search instead for 
Did you mean: 

Menus

Former Member
0 Kudos

Hi,

Im adding Menus in the command centre using xml tags, when i do that the first menus submenus gets added correctly but the second menu's 2nd submenu doesnt get added and the third main menu also not getting added. wat could be the problem? can anyone help me in this?

regards,

Sri Lakshmi.

Accepted Solutions (0)

Answers (2)

Answers (2)

Former Member
0 Kudos

Hi siva,

The Menuevent is working correctly for the menus displayed but the second submenu of the submenu is not shown in the command centre.

for example:

Application1

Application2

Item1

Item2

Application3

Item3

Item4

Application4

Item5

Item6

Here in this example nothing is shown in the command centre after Item3. this is the problem.

can u help me with this?

regards,

Sri Lakshmi.

Former Member
0 Kudos

Hi..

i thing ur code have error that submenu part use try catch method

Regards..

Billa 2007

Former Member
0 Kudos

Hi..

use this code..

Give menu event

If pVal.BeforeAction = False Then

Try

Select Case pVal.MenuUID

Case "MenuID"

LoadFromXml1("1.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml2("2.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml3("3.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml4("4.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml4("5.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml4("6.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Catch ex As Exception

SBO_Application.MessageBox(ex.Message)

End Try

End Select

Regards...

Billa 2007