#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Page1 As B4XPage1
Private lblPage1 As B4XView
Private xcbxMainPage As B4XComboBox
Public SelectedIndex As Int 'Selected index'
Public SelectedItem As String 'Selected item'
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Page1.Initialize
B4XPages.AddPage("Page 1", Page1)
FillComboBox
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
End Sub
Private Sub FillComboBox
Private i As Int
Private lst As List
lst.Initialize
For i=0 To 10
lst.Add("Main" & i)
Next
xcbxMainPage.SetItems(lst)
xcbxMainPage.SelectedIndex = SelectedIndex
SelectedItem = xcbxMainPage.SelectedItem ' memorise the index'
End Sub
Private Sub btnPage1_Click
B4XPages.ShowPage("Page 1")
End Sub
Private Sub xcbxMainPage_SelectedIndexChanged (Index As Int)
SelectedIndex = Index 'memorise the index
SelectedItem = xcbxMainPage.SelectedItem ' memorise the index
End Sub
Public Sub Update
lblPage1.Text = Page1.SelectedItem
End Sub