A collection of Item objects.
Use this collection to access a form's items.
SAP Business One UI API 10.0 - Objects Reference (10.00.270)
-
-
-
-
-
-
-
(Visual Basic) 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
-
-
-
-
-
-