how to work with multiple forms
Hi
I am developing an application in which it contain 6 forms..
i am able to create them and run a single form.. now,, i have to implement code for all the remaining forms.. what shall i do..
this is wht i wrote for a add mode of one single form ..
Private Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent
If (pVal.MenuUID = "1282") And (pVal.BeforeAction = False) Then '1282 for Add Mode
oForm = SBO_Application.Forms.Item("TBL_QPLAN_")
'oForm.Select()
getNextDocNum()
oItem = oForm.Items.Item("MATRIX")
oMatrix = oItem.Specific
oColumns = oMatrix.Columns
oMatrix.AddRow()
End If
Now there are many forms how to write the code to select and operate that particular form..
Thanks regarding.
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
Former Member replied