📚 SAP Business One SDK Help

Items Collection
See Also  Members  Example

Description

A collection of Item objects.

Use this collection to access a form's items.

Object Model

Example

(Visual Basic)Copy Code
Dim mFrms As SAPbouiCOM.Forms
Dim frm As SAPbouiCOM.Form
Dim mItms As SAPbouiCOM.Items
Dim itm As SAPbouiCOM.Item
Dim ii As Integer
Dim editTxt As SAPbouiCOM.EditText
Dim dataSrc As SAPbouiCOM.DataSource

Set mFrms = con.Forms
'creating a form
Set frm = mFrms.Add(True, fk_CLASIC, fp_BOTTOM_RIGHT)

frm.Title = "MyForm"
frm.PaneLevel = 1
'form properties settings

mFrms.CreatePendingItems
frm.Visible = t_NO

'adding data source object
Set dataSrc = frm.DataSources.Add
dataSrc.FileCode = "OINV"

frm.DataSources.CreatePendingItems
Set dataSrc = Nothing

'gets the handle to the items collection
Set mItms = frm.Items

'item 1
Set itm = mItms.Add()

'set item type
itm.Type = it_BUTTON
'set item position
itm.Left = mItms(2).Left + (mItms(2).Left - mItms(1).Left)
itm.Top = mItms(1).Top
itm.Width = mItms(1).Width
itm.Height = mItms(1).Height
'set data related flag
itm.DataBind = t_NO
'set button display value
itm.ItemString = "Query"

'item 2 - #4
Set itm = mItms.Add()
'edit box
itm.Type = it_EDIT
'set position & size
itm.Left = mItms(4).Left + mItms(4).Width + 5
itm.Top = mItms(4).Top
itm.Width = mItms(4).Width
itm.Height = mItms(4).Height

itm.DataType = dt_SHORT_TEXT
itm.DataSize = 100
'connect to the data source object
itm.DataBind = t_YES
itm.DataSourceInd = 0
itm.FieldNum = 12

'add more items ...

'apply addition to SBO application
mItms.CreatePendingItems

See Also