Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private lbl As B4XView
Private iv As B4XView
Private btnPrevious As B4XView
Private btnNext As B4XView
Private StepNumber As Int
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
Return Me
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("Details")
StepNumber = 1
End Sub
Private Sub B4XPage_Appear
If StepNumber < 2 Then
btnPrevious.Enabled = False
btnPrevious.Visible = False
Else
btnPrevious.Enabled = True
btnPrevious.Visible = True
End If
If StepNumber > 5 Then
btnNext.Enabled = False
btnNext.Visible = False
Else
btnNext.Enabled = True
btnNext.Visible = True
End If
ReloadViews
End Sub
Private Sub btnPrevious_Click
If StepNumber > 1 Then
StepNumber = StepNumber - 1
ReloadViews
End If
End Sub
Private Sub btnNext_Click
If StepNumber < 6 Then
StepNumber = StepNumber + 1
ReloadViews
End If
End Sub