Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private m_clvInterventi As CustomListView
Private xui As XUI
Private m_HeightToolbar As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
m_HeightToolbar = 50dip
'Do not forget to load the layout file created with the visual designer. For example:
Dim pnl As B4XView = xui.CreatePanel("Panel")
pnl.SetLayoutAnimated(0,0dip, m_HeightToolbar, 100%x, 100%y - m_HeightToolbar)
pnl.LoadLayout("LayoutCLV")
Activity.AddView(pnl, 0dip, m_HeightToolbar, 100%x, 100%y - m_HeightToolbar )
End Sub