Skip to Content
0
Former Member
Jul 14, 2008 at 07:39 AM

HELP on SubMenu & Forms from XML

35 Views

I have loaded the Sub-Menu using XML

<?xml version="1.0" encoding="UTF-16" ?>

- <Application>

- <Menus>

- <action type="add">

<Menu Checked="0" Enabled="1" FatherUID="4352" Position="0" String="Form1" Type="1" UniqueID="4355" />

<Menu Checked="0" Enabled="1" FatherUID="4352" Position="1" String="Form2" Type="1" UniqueID="4356" />

<Menu Checked="0" Enabled="1" FatherUID="4352" Position="2" String="Form3" Type="1" UniqueID="4372" />

<Menu Checked="0" Enabled="1" FatherUID="4352" Position="3" String="Form4" Type="1" UniqueID="4373" />

<Menu Checked="0" Enabled="1" FatherUID="4352" Position="4" String="Form5" Type="1" UniqueID="4374" />

<Menu Checked="0" Enabled="1" FatherUID="4352" Position="5" String="Form6" Type="1" UniqueID="4375" />

</Form>

</action>

</Menus>

</Application>

I have created 6 XML forms (.srf). I want; when I click the sub menu the respective forms should open.

After loading the above XML I am writing this code, but it does not worku2026..i thing iam doing it wrong, can anyone help me on this one.

Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

Dim EventEnum As SAPbouiCOM.BoEventTypes

Dim bModal As Boolean

EventEnum = pVal.EventType

If bModal And FormUID = "4355" Then

LoadFromXML("Form1.xml")

oForm.Select() ' Select the modal form

BubbleEvent = False

End If

If FormUID = "4355" And (EventEnum = SAPbouiCOM.BoEventTypes.et_FORM_CLOSE) And bModal Then

bModal = False

End If