Add new tabbed page

Question

Hi,
   I would like to add a new Tab on the "Payment Means" form. Can anyone send me some sample code on how to add a new tabbed page. I am using SBO 6.5.
Thanks,
Gopal

Answer 1

Hi Gopal,
Just some code snipets that may help you.
In the form load:
'Define variables
Dim oFolder As SAPbouiCOM.Folder
        Dim oNewItem, oNewItem2, oItem As SAPbouiCOM.Item
'Use an existing folder to get values
oItem = oForm.Items.Item("39") '39 is an existing folder
'Create new folder
oNewItem = oForm.Items.Add("Folder1", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
oNewItem.Top = oItem.Top
oNewItem.Height = oItem.Height
oNewItem.Width = oItem.Width
oNewItem.Left = oItem.Left + oItem.Width - 70
oFolder = oNewItem.Specific
oFolder.Caption = "Folder 1"
oFolder.GroupWith("39")
The click event:
If pVal.ItemUID = "Folder1"
And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK
And pVal.Before_Action = True Then
   'Change Pane level
   Dim oForm As SAPbouiCOM.Form
   oForm = con.Forms.Item(FormUID)
   oForm.PaneLevel = 9 
   'This PaneLevel is the one asigned to the new folder.
   'Be sure it doesn´t already exist.
End If
And finally, when you create the controls  that should be in the folder:
Private oNewItem1 As SAPbouiCOM.Item
oNewItem1.FromPane = Pane
oNewItem1.ToPane = Pane
I think I´m not forgetting anything.
Hope helps,
Ibai Peñ