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